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A ad 453,953 19S.. VES, Te. PES TAS TT ST TS TSS. UES ALTO, 
42106297, 2598, 2598), 2: 105.23422 

ABUS 1:68 $378 

ACCRES 2:105 2:104 

ACT = 2:32 

ACTIVA 2:23 2323),2223 

ADDR = 2:4,2:4,2:4 

AGAIN + 237 

ALLOC ad 2:23 

ALLOW sd 2:32 

AMEMIO 1:68 4373), 1373,.4273.1¢78 

AMPCOM 1:70 b Sy 1 aN 

AMPMAN) 1:68 TSAI As FE. (7B 

AMPROC 1:70 1278, £284... 1962, 1:82, 1293 

AMPSYS 1:68 1:73 

AMPTRY 1:68 1:73 

AN = 2:32 

ANOM 2:78 2:98,2: 107 

ANSWER 2:112 22 41O 2341162412 

ANYPRO 1:16 139293109, VED VETS, FEAT ASAT, 2996), 2:68 

APROC 1:68 1:78 

AR - 1:23 

ARE * PE | 

ARG1 + 24 Tea t35, tS 1 89), 190,224, 24,224,259 16..2:515,2:90; 
2220), 2:205'23' 20/2420 22 1 221 2521 pe Qs21. Dea 2227, 
2327), 2292..2¢92'.2592,.2332 2:32,'2°9a.23:93;,.2+93;,,2°93;, 
2:33 

ARG2 - 1394, PsOy125y 125,139, teO 22424 24 2091S (45, O324), 
VV QP, Vat (2521, 2eVF JAK2F 2289, 23S), 2':93)..2333.; 
2:33 

ARGS - $24, 194125), 0252245204 254. 2015,,.2215;, 2:27',.2527 

ARG4 » 134, 194), 725, 125 2845, 2o45,.2:27), 2227 

ARGS 124, 1294), 22415, 23:15. 2727 2927 

ARGRES 2:105 2:94,2:108,2:111 

ARGUME - 2:29 

ARSTAC - 1:26 

ASCICO 2:76 

ASCICR 2:76 2:108 

ASCIFF 2:76 

ASCILF 2:76 2:88,2:108 

ASCISP 2:76 2:96 

ASSUME - 2:29 

ATTNPA 1:24 $94), 1:3:393 

BACK ad 237 227 

BAD 23125 22 °425./23:129 

BASE 2:124 2:124,2:128,2:129,2:130 

BBCANS 1:17 1:81 

BBCBAD 1:71 1:95 

BBCBAK 1:17 1282,.14:93 

BBCFOR 1:17 17S, 17S, TB 

BBCLOK - 1:70,74:73,.1:81, 7:81, 12:82, 1:83, 1:84,1:93,1:94,4:95 

BBCMAP 1:17 1:82,1:93,1:93,1:94.1:94,1:94,1:94 : 

BBCMSK 1:17 1217, 1:82, 12:82, 1:93, 1:93, 1:98, 1:94,1:94,1:94.,14:94, . 
1:94,1:95 

BBCODD 1:93,1:93,1:94 
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BLTBBT 
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:94 
:28.1:79,1:80,1:82,1:93,1:93,1:93,1:94,1:94,1:94, 
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15254275. 1290 
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BLTBUD 1:8 1:92 


BLTBUE 1:86 1:86,1:91 

BLTBUF 1:71 2:68 

BLTBUG 1:86 1:86 

BLTBUS 1:86 1:85 

BLTBUT 1:86 1:86 

BLTBUZ 1:86 1:86 

BLTC1 1:88 1:89 

BLTC2 1:89 1:91 
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BLTC4 1:88 1:89 
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BLTC7 1:89 1:91 
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BLTCF 1:88 1:88 
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BLTERS 1:71,1:98 U298) 13408), 13410545 140. Bel et. 22 19s S442, 
QEtte 
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BLTM3 1:91 1:91 
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BLTME 9 1:92 

BLTME1 1:91 1:91 


BLTMK 

BLTMSK 
BLTMYB 
BLTMYC 
BLTMYM 
BLTMYR 
BLTMYS 
BLTNLC 
BLTPCH 
BLTPCO 
BLTPCS 
BLTPOK 
BLTPRM 
BLTPRO 
BLTPRS 
BLTPRX 
BLTRAT 
BLTRUN 
BLTSDF 


BLTSIZ 
BLTSPA 
BLTSPM 
BLTST 


BLTSTB 
BLTSTY 
BLTTCH 
BLTTO 
BLTTOG 
BLTX 
BSADIL 
BSADIT 
BSADML 
BSADMT 
BSADRM 
BSADRS 
BSMAPM 
BSMAPS 
BSMPTB 
BSMPTM 
BUFEND 
BUFFLG 
BUFSIZ 
BUSCON 
BUSFIX 
BUSINC 
BUSKIL 
BUT 
CABORT 
CARRY 
CCADDR 
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CCPIEC 
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:114,2:60,2:68,2:68,2:107,2:110,2:110,2:112.2:117,. 
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11,1:74 
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: 107 


cD 
CDOWN 
CDSTAC 
CFORHA 
CFORHS 
CFORI 
CFORL 
CFORMI 
CHANGE 
CHECK 
CHKH 
CILBUF 
CILCNT 
CILEND 
CILLOC 
CILNUM 
CILOPS 
CILOVF 
CILPRO 
CILREG 
CKLOCK 
CKPASS 
CKSUB 
CKSUM 
CLOKRT 
CLST 
CMAP 
CMARK 
CMMBEG 
CMMBIT 
CODE 
CODEPA 
COMAR 
COMMA 
COMMON 
COMPTR 
COMREL 
COMSTS 
COMTST 
CONCOM 
CONSOL 
CONTAB 
CONTLO 
CORETU 
COUBUS 
COUCON 
COUF IX 
COUNT 
COUPLR 
COUTAB 
COUTBL 
CPAGE 
CPCORE 
CPDH 
CPDL 
CPKADD 
CPKSIZ 
CPKSSF 
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242,142, 1:43 


742,1:42 
742,1:42,1:43 


£$12,1:12,1:12,1:12,1:66,1:90 
:52,1:60,1:60,1:66,2:36,2:45 
212,1:60,1:118,2:37.2:44,2:44,2:45,2:50,2:51 
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:398,2:51 
197, 1: 1061: 107.9 5412. 15:112 
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247:, 1947,'1259, t¢S9 
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759, 1:59, 1:59, 1:59 

527, 1227S 
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£70, 1279, 1979, VETS, 139769293, 1295 
$70, 12.73 

735 

396, 12407, 13 142 
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CPLINE 1:9 


CPMASK 1:96 1: 106 

CPSATD 1:97 1: 104 

CPSATS 1:97 1: 104 

CPSIZE 1:97 

CR 2:107 2:100,2:106,2:108 

CRASH = 1:37 

CRIGHT 2:76 

CRLFTX 2:108 2:107 

CRPBIT 1:97 

CRPCNT 1:97 

CSETUP 1:96 1:96,1:101,1:106,1:112 
CSRFLG 1:97 

CTYPE 1:97 1:97 

CUMBIT 2:79 

CUP 2:76 

CURADD 2:80 2:104,.2:106,2:110,2:115 
CURREN - x7 207 

CWPCIN 1:12 4:11,1:63 

D2FB 2:78 2:82,2:839,.2:119.2:119,.2:119 
D2FL = 2:78 ,2:82,2:83;,.2:119,2:119,2:119 
D2FPOK 2:78 2:119 

DATA = Vi97 

DD as 2:76 

DDACCU 2:80 2:98,2:104,2:104,2:104,2:105,2:105,2: 107 
DDIENT 2:94 2:94 

DDIVAR 2:80 

DDPOKE 2:78 23107. 23 110.22 T47 
DDRESE 2:93 2:93,2:94 

DDSTAC - 2:94 

DDT mm 2:34,2:34 

DDTATT 1:33 1:15,1:33 

DDTBF2 2:80 2:107,2: 109 

DDTBUF 2:80 23 107.25 112,22:116 
DDTCOD 2:34 2:82,2:91 

DDTDIS 2:100 2:98,2:103 

DDTGET 2:119 2:98,2:120 

DDTINI 2:92 2:92 

DDTLOD 2:34 2:34 

DDTLOK - 2:78,2:94,2:94 

DDTOUT 2:119 2210223 149, 2124. 22:124 
DOTPOL 2:94 2:81 

DDTPRO 2:80 2:93,2:3110,2:115 

DDTSP 2:76 2:94,2:94 

DDTSTE 2:96 2:96,2:120 

DDTVAR 2:34 2:76,2:80 

DDTVST 2:34,2:34 2:34,2:34,2:34 
DDVARE 2:80 2:93 

DDVARS 2:80 2:93 

DEBUGM 1:24 1:45,1:48,2:60,2:70,2:82.2:107,2:119,2: 126 
DECIMA 2:104 2:101,2:104 

DECNUM 2:80 2:104,2:104.2:105.2:105.2: 105 
DEFATN - VE 10, 4:70.) V8 

DEFBEG - 1210, 4333 

DEFBUS 1:3 1:13 

DEFENT 1:10 2:35 

DEFTLL. = 13:10, H319 

DEFINT 1:8 128,128, $28.0 28: 1213 


DEFIO 1:7 1:13 


DEFLIN 1:8 E13 Vets 

DEFLOO - ¥2410),:4540;,22125 

DEFMO 2:126 2:126,2:126 

DEFM1 1:6 426,426, 196,196 

DEFMAC 1:10 TIO. 1 AOKI IO AAO. ts 10: 

DEFMEM 1:4 THIS Et HAF 

DEFPAG - 15°94. 114, V1 VS, 4s £4, 4914, 1214, 1225, 1269;,2:94, 
2:34,2:34 

DEFPCN - 43410,:7:40 

DEFREL 1:7 1:13 

DEFRLD 1:9 12913, 72418 

DEPOSI 22407 2:107 

DERRPR 2:109 2:107,2:107,2:109 a 

DESVPA 1:5 

DEVINC 1:17 1:72, 4: 102, 12 102.12 146 

DEVTYP 14:17 1: 102 

DHALT 1:29 1:39,2:126 

DHPASS - 1:37,1:39,2:126 

DIGIT 2:105 2:102,2:102,2:102,2:102,2:102,2:102.2:102,2:102,.2:102, 
2:102,2:105 

DINIT 1:29 1:42 

DISMIS 2:22 222 

DISPLO 2:98 2:95 

DLST 735 WSs 1G 

DMAP 2:80 2:°933,23110,2: 115 

DO1.6 2:136 2:136 

DO25.6 2:136 2:136 

DOCLOC 2:136 2:1396,2:136,2:136 

DOINIT 2:133 2:133 

DON a 236.227 

DOT 2: 104 T3440 Tet! 

DSLEEP 2:94 2394.29 447 £23 11822 119.2420, 23120 

DSPFLA 2:78 

DSPPOK 2:78 2:89 

DSTAND 1:50 1313. 4¢83 

DSTH 1:97 1:106,1:107 

DSYSSP 2:76 2:94,2:94 

DUMMY «Rs 1E1 FV ASAE NEA ASAD ASAT, AS29, 1596 22 7.2790; 2239062558, 
2:76,2:78 

DXTCHK 2:82 2:81,2:83,2:84 

DOXTFLA 2:78 2:82.2:83 

EOOO “ 1:13 

E14 - 1:10,1:10 

E100 - 1313 

E2 - 129.4540 

E200 = i193 

E3 - VEO VAS10 

E4 - 2270, 720 

EMTPID 1:18 

EMTY 2:128 

END 1:23 287 23 107), 2A 

ENDI 1:96 1:100,1:100,1:104 

ENDINI 2:18 

ENDO 1:96 1: 103 

ENTER = 2°86 2:57 

ENTLIS 1:10,1:10 sa 

EQUAL = 12:34),4352,.1255,.4260).4:60,. 1269, 1874. 4275. E79, 478, 
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LOCSST 1:14 
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LOCVST 1:14 
LOCZEL 1:22 
LOCZER 1:22 
LOD S 
LODINT 1:8 
LOOP 1 2:128 
LOOP2 2:128 
LOOPS 2:128 
LOOP4 2:128 
LOOPS 2:126 
LOOPE 23127 
LOOPM 2:126 
LOOPMV) 2:126 
LOWMSK 1:96 
LPSBTA - 

LST = 
LSTACK - 
LSTKLN 1:14 
LSYSFC - 
LTIME 4322 
LVARS 1:14 
M% - 
M%LOCA 2:6 
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M1 = 
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NOPID 1:1 AS 


NOPIDS 2:125 2:428 

NOPTVM 1:69 4214 

NOSAVE - 1:32.1:39.1:96,1:44,.1:44,1:51,2:81,2:125,2:125 
NOTEXT 2:114 2296; 2°97 (25119, 25749 

NOTRAP - 1:57,1:57,1:58, 1:59, 1:59, 1:59 
NOVARP 1:69 $344,2239 

NOW - I f 

NPROC 1:16 1:70 

NQUIT ~ 1:40,1:49,1:56,1:58,1:58,1:59,2:45 
NREQUP 1:69 2:40,2:41 

NSEGS 1:69 1268), 42:72,2:56 

NSITRY 1:100 1: 100 

NSPARM 1:69 1249 

NSPARP 1:69 124 15224%,.2:47 2:50 

NSUER 1:20 1:20,1:403 1:43 

NUMOUT 2:121 2196,,'2:96;, 25406, 224142,23 113), 23 t2 
NVARSM 1:69 VEN 

NVARSP 1:69 e3'4 

NXISTX 2:114 2:3:143 

OF - 23:7 

OFF - 2:7 

OFFDIS 1:24 1:63 

OLD =~ 27 

OLDP 1:19 2:128,2:128 

OLST 1:5 1:5, 1:6 
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P$1.6 1:13 42:44 

P$25.6 1:13 Vert 
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PKCEXT 
PKCFHA 
PKCFHO 
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PKCFLN 
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PKCITL 
PKCLEN 
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PKCLHO 
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PKCLLN 
PKCLMK 
PKCLOK 
PKCLTO 
PKCMAX 
PKCMYI 
PKCNIM 
PKCOC 
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PKCRCT 1:98 1:101,1:101,1:104,1:108.1:115,1:116,1:116 
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PKCSSF 1:98 1.290%., 12107, 1:5 108:,.4) 2408.0 12S VIO, VS 441 ASIN 
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T2412, VSEVAI2 FOIIG, F115 1 4IS FEV. Es FAG 

PKCSTO 1:96 123140. 7254459 

PKCTIM 1:98 Ts7GO14 32445 

PKCTMK 1:97 1:107,1:109,1:114 

PKCTMX 1:96 1:104,1:108 

PKCTRY 1:96,1:96 1:116 

PKCTYH 1:98 1:101 

PKCTYP 1:98 TH4O7., Fit SAAT 
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PKTH 1:97 1:97,1:106,1:106,1:106,1:107,1:107 

PLRCOM 1:98 42909. 15109 ,.45712.1729912 78417 

PLRPKC 1:98 43108)... 93942 TSA BET 

POKE 2:21,2:33 2:21,2:33 

POLBLT 1:49 1:45,1:46 

POLLER 2:81 2:81,2:81 

POLRLD 1:9,1:101 1:89,1:101 

POLTIM 2:78 2:82 

POSITI - 22, S27 

POST 2:19 

PREFIX 2:80 2:98,2:104,2:105,2:107,2:110,2:110 

PROAMP 1:68 1:78 

PROC - 2:19 

PROCBT 1:19 1:42,1:45,1:49,1:49,1:52,1:58,1:63,1:63,1:75,1:78, 
1:92,2:58,2:58,2:60,2:70,2:96,2:107,2:119,2:126,2:128 

PROCD 1:22 1:78,1:79,1:82,1:82,1:84,1:84 

PROCES 2:15 
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PROCNO 1:19 1:50,1:52,1:79,1:84,1:84,1:92.1:95,2:62 
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PSBBRK 2:76 2:87 

PSBCTL 2:76 2:87,2:87,2:89,.2:89 

PSBDAT 2:76 2:88,2:89 

PSBECH 2:76 

PSBFRE 2:76 2:87,2:88,2:89 

PSBINT 2:76 

PSBONE 2:76 2:86 

PSBOUT 2:76 2:87,2:89,2:89 

PSBOVR 2:76 

PSBSTA 2:76 2:87 ,2:87,2:¢89 

PSBTAB 2:86 2:85,2:86 

PSBTWO 2:76 2:86 
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PTRAD 1:34 1:34 

PTRB 1:29 1:34 

PTRBC 1:29 

PTRBL 1:29 12:29,7:34, 73394 

PTRCS 1:29 

PTRDN 1:29 

PTRFB 1:29 

PTRFLG 1:29 

PTRIP 1:29 1:34,1:34 

PTROP 1:29 1:34 

PTRSR LZ 

PTRST 1:29 
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Qso 1:30 2S, 1953 

Q70 1:30 14539 
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QUITV 1319 1:30,1:84 
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42934, 1:35.7235, 1:95, 1:36. 1:36, 1:36, 1:96, 1:36,1:36, 
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1:37, 1:38,1:38.1:38.41:38.1:98.1:38.1:39, 1:39.1:39, 
1:39,1:39,1:40,1:40,1:40,1:40, 1:40,1:40, 1:40, 1:40, 
1:40,1:41,1:41,1:439.1:439,1:439,1:44,1:45,1:45,1:45, 
1:46,1:46.1:46,1:46.1:47.1:47,1:47,1:47.1:47,.1:48, 
1:49,1:49,1:50, 1:50, 1:50, 1:50, 1:50, 1:50, 1:50,1:50, 
4:50, 1:50, 1:54.4:547..74:517,7251,4951.9:51, 251.1:51, 
42S, 254. 4282, 1252 1252.1 452,.1252.. 1252, 282.4252, 
4959. 1952 6435386 42946.1 75461454, 1.55, 8:55, 1:55, 12:55, 
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:108,1: 
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738,2: 
41622 
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luribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 
IMPLOD.PLR; 1 PAGE 1 


-title pluribus IMP Loader 
;Assemble special paper tape loader code 
0001 PTR = 1 
;Assemble the old format Packet Core Loader 
0000 NewPke = O 
;Modify Stage, etc. for Platform 
0001 PSE = 1 
;First get the various files of macros 
-insym MACROS.SYM 
;Now get STAGE configuration file 


- INSERT "STAGE.CFG",STAGE.CFG 
- INSRT STAGE.CFG 


PAGE 


(— — 


pluribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 2 
STAGE .CFG;1 PAGE 1 


+ STAGE .CFG 
;John Robinson/Eric Roberts 22-Apr-78 


: This file defines a number of macros which allow 
;the application program to specify the configuration to 
:be assumed by the stage system. The macros and their 

igeneral use are documented in the file <KERNEL*>CFG.DOC. 
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STAGE .CFG; 1 PAGE 2 : 


:Macros to define common memory and I/O bus configuration 


;DEFBUS 


;The DEFBUS macro declares the memory and I/0 bus 
;addresses for the system. The general form is 


; DEFBUS: <mt,cc 3.7 Te a> 


;where the constuctions <m1,...> and <il,...* are the 
;list of memory and I/O bus addresses respectively. 


-MACRO DEFBUS MLIS,ILIS 
-MACRO BSADIT 
-IRP A,<ILIS> 
H‘A 
BESCLK= H’A+RTCADD ;Highest numbered clock 
. ENDM 
.ENDM 


»MACRO BSADMT 
-IRP A,<MLIS> 
H8000 
.ENDM 
.ENDM 


-MACRO BSMPTB 
-IRP A,<ILIS> 
1 
.ENDM 
.ENDM 


»-MACRO BSMPTM 
-IRP A,<MLIS> 
A 
.ENDM 
- ENDOM 
. ENDM 


pluribus IMP Loader PLURIBUS V2.9B 
PAGE 3 


STAGE .CFG;1 


25-Jun-87 11:20:52 PAGE 4 


;Physical page definition macros 


;Pages which are to be managed by Stage 

;must be declared during the assembly by the 

;use of one of the page declaration macros 

defined below. There are four macros which “ 
;correspond to different page classes supported 


. 
‘ 


' 
. 
. 
‘ 


by Stage: 


(4 
(2 
(3 
(4 


) Code pages (spares duplicate this list) 
) Required variables pages 

) Desired variables pages 

) Optional variables pages 


:The definition of the different page types may be 
found in the documentation for Stage. 

>The names of physical pages should be no more 
;than three characters in length. 


;each type of page must be declared hy the 


The total number of slots to be reserved for 


;DEFMEM macro at Stage generation time. The 
;DEFMEM macro is keyword driven and accepts 
;the following argument forms: 


TOTAL=n 
CODE=n 
VARS=n 
OPTV=n 


;Total number of page slots 
;Number of code page slots 

;Number of variable page slots 
;Number of optional variable slots 


;Define the DEFMEM macro 


-MACRO DEFMEM ARG1,ARG2,ARG3,ARG4,ARGS 


%SRADIX=%RADIX 
.RADIX DIO 


;Save the radix 
;Before moving to decimal 


.IRP ARG, <ARG1,ARG2,ARG3,ARG4,ARGS> 


.IF NB <ARG> 
%' ARG 
. ENDC 
. ENDM 
-RADIX %SRADIX 
NMSEG=%TOTAL/ H8 


.ENDM 


;For each non-blank arg 
;Assign the keyword parameter 


7Set the radix back 
;Bytes in memory discovery 
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STAGE .CFG; 1 PAGE 4 


;Define the page definition macros 


»-MACRO CODEPAGE NAME,ARG1,ARG2,ARG3,ARG4 
$ADDPAGE CLST,<NAME> 


LIM == ~1 
%PHY == -14 
INI == -4 
¢*TAB == -1 


-IRP ARG, <ARG1,ARG2,ARG3,ARG4> 
-I1F NB <ARG>, $’ARG 
. ENDM 


-TIF NZ 1+#%LIM, NAME’LIM == %LIM 
-TIF NZ 1+%PHY, NAME’LOD == %PHY 
-TIF NZ 1+#%INI, NAME’INI == %INI 
-TIF NZ 1+%TAB, NAME‘TAB == %TAB 


. ENDM 
;Macros for the CODEPAGE arguments (LIMIT and PHYSICAL in PAGE) 


-MACRO $INITROUTINE ARG 
*INI == ARG 
.ENDM 


-MACRO $TIMERROUTINE ARG 
%TAB == ARG 
-ENDM 


-MACRO VARSPAGE NAME 
$ADDPAGE VLST.<NAME> 
.ENDM 


-MACRO DESVPAGE NAME 
$ADDPAGE DLST.<NAME> 
- ENDM 


-MACRO OPTVPAGE NAME 
$ADDPAGE OLST,<NAME> 
» ENDM 
;And a macro to add the pages to a list 


-MACRO $ADDPAGE LST,NAME 


*FLG == .ADRMD =OtPG$’NAME ;Check if defined previously 

.IF NZ %FLG - H880 :Short constant => defined 
$SENTER LST,NAME ;Enter name on list: 
NAME ‘KEY == $PGKEY ;Assemble unique labels 
$PGKEY == $PGKEY + 1 
PGB’NAME == 1 ;Define the page 

. ENDC 

.ENDM 


;Define the page lists 


$LIST CLST ;List of code pages 
$LIST VLST ;List of required vars pages 
$LIST DLST :List of desired 149rs pages 


$LIST OLST ;List of optionze ars pages 


0001 


yInitialize the key count 
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STAGE .CFG; 1 PAGE 5 


;Macro to set up the memory tables 


.MACRO LMAPTB 
%CNT == 
$APPLY DEFM1,CLST ° 
MNCODE=.-LMAP-2 
.BLKW %CODE-%CNT 
%NCODEP=.-LMAP 
.BLKW %CODE 
%*NSPARP=.-LMAP 
CNT == 
$APPLY DEFM1,VLST 
MNVARS=.-LMAP-2 
-BLKW %VARS-%CNT 
YNVARSP=.-LMAP 
%CNT == 
$APPLY DEFM1,DLST 
INDVAR=<<. -LMAP-%NVARSP>+<MNVARS-%NSPARP>/WORDS>+1 . 
$APPLY DEFM1,OLST 
MNOVAR= , -LMAP-2 
.BLKW %OPTV-%CNT 
%NOVARP=.-LMAP 

. ENDM 


-MACRO DEFM1 P 
%CNT ==%CNT+ 14 
-IIF NDF P‘LOD, P’LOD=~-1 
P’TYP=.-LMAP 
MAP‘P: .BLKW 1 
- ENDM 


-MACRO MMLIMS 
$APPLY MLIMX,CLST ;Add limits for code pages 
.REPT %CODE-<<.-LIMTAB>/2> 


-MACRO MLIMX PG 
<M1#<PG’LIM-2>>4+2 
. ENDM 
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;Now for the specific addresses in IO space 


-MACRO DEFIO LIS1 
-MACRO IOBTAB 
-IRP A,<LIS1> 


;Macro to help set up Rely page (init, timeout) 


-MACRO DEFREL INI,TIM 
.IF NB INI 
-IF DF INI 
RELINI=INI 
LEFF :DF INI 
RELINI=0O 
. ENDC ;DF INI 
- ENDC 7NB INT 
.IF NB TIM 
-IF DF TIM 
RELTAB=TIM 
oa hF ;DF TIM 
RELTAB=O 
. ENDC ;DF TIM 
. ENDC ;NB TIM 
. ENDM 


:macro to let user specify max strip time(* 1!00 microsec) 


-MACRO MSTRIP ARG 
MAXSTR= D‘ARG 
.ENDM 


;Macro to test assembly switch settings 


.MACRO TESTSW L1S 
.IRP SW,<LIS> 
.IF NOF SW 

.PRINT |SW UNDEFINED, ASSUMED O 


sw =o 
. ENDC > NDF 
.ENDM 
.ENDM 
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;A macro to let you change default Interrupt handlers 


-MACRO DEFINT L1,.L2,.L3,L4 


.IF BL4 
DEFINT WOPS,L2,L3.L4 
LIFF 7B L4 
.IF B L2 
DEFINT L1.WOPS,L3,L4 
LIFF 7B L2 
LIF BLS 
DEFINT Li,L2,WOPS,L4 
.IFF iB LS 
.IF B L4 
DEFINT 1.1.L2,L3,WOPS 
LIFF 7B La 
.MACRO INTABL 
LA 
L3 
L2 
ui 
/ENDM 
. ENDC 7B L4 
ENDC :B L3 
/ENDC 7B L2 
. ENDC 7B L4 
ENDM 


;Macro to load interrupt handlers 


-MACRO DEFLIN LIST 
-MACRO LODINT 
.IRP A,<LIST> 
-IF NB A 
. =*SERVC+< H8*t. IRPCN> 
A 
. ENDC 
.ENDM 
-ENOM 
- ENDM 
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;A macro for specifying a reloader program source file 


.MACRO DEFRLD ARG1,ARG2 
.IF NB <ARGI> 
-MACRO RLDINS 
. INSERT “ARG1",<ARG2> 
.ENDM 
si FF ;No reloader 
-MACRO RLDINS 
ROUTINE POLRLD 
ENDROUTINE 
ROUTINE TRYRLD,ARG R1,INLINE R2 
TRAP 77,<;:LOST REQUIRED CODE page 9> 
ENDROUTINE 
. ENDM 
. ENDC 
.ENDM 
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;Now for the code-generators 
;First, a macro to define the macros to define the macros 
-MACRO DEFMAC OUTER, INNER 


-MACRO OUTER A 
-MACRO INNER 


A 
. ENDM 
. ENDM 
. ENDM 
DEFMAC DEFBEG,LOCBEG ;Code to assemble at head of LCode page 
DEFMAC DEFILLOP,PILLOP ;User ILLOPR handler to call 
DEFMAC DEFATN,PATTN ;User ATTN handler to call 
DEFMAC DEFLOOP ,P$LOOP ;Stage Exit to System 
DEFMAC DEFPCNT .P$PCNT ;Min procs to run system 
-MACRO DEFENTS E1,E2,E3,&4 ;Entries to non-kernel stages 
»MACRO ENTLIST ; 
E1,€2;€39;,€4 
.ENDM 
ENDM 


;Set up some default empty macros 


DEFATN 
DEFILLOP 
DEFLOOP 
DEFPCNT 


-MACRO ENTLIST 
. ENDM 
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;Define a macro to patch Stage system 


.MACRO $FINSTAGE 
$DOPATCH LMAP,LVARS 
LMAPTB 
$DOPATCH LIMTAB, RELCODE 
MMLIMS 
$DOPATCH BSMAPS 
BSMPTB 
BSMPTM 
.if df minproc 

$DOPATCH MINPROC 

P$PCNT 
.endc 
$DOPATCH NCODEP 
%NCODEP 
$DOPATCH NSPARP 
“NSP ARP 
$DOPATCH NVARSP 
%NVARSP 
$DOPATCH NOVARP 
%*NOVARP 
$DOPATCH NCODEM 
MNCODE 
$DOPATCH NSPARM 
MNCODE+%NCODEP 
$DOPATCH NVARSM 
MNVARS 
$DOPATCH NOPTVM 
MNOVAR 
$DOPATCH NDVARS 
INDVAR 
$DOPATCH IOBASE 
IOBTAB 
$DOPATCH CWPCIN 
ENTLIST 
$DOPATCH JLOOP 
P$LOOP 
$DOPATCH MO#PGINIT 
RELINI 
RELTAB 
FDOPATCH ILLOPAT.LCODE 
PILLOP 
$DOPATCH ATTNPAT 
PATTN 
$DOPATCH MMAXSTR 
MAXSTR 
$DOPATCH L$25.6 
P$25.6 
FDOPATCH L41.G 
P$1.6 
$DOPATCH BSADRS 
BSADIT 
BSADMT 

. ENDM 


«MACRO $DOPATCH DOT,PG 
.IF NB <PG> 
PAGE PG 
PAGE DUMMY 
. ENDC 
. =DOT 
. ENDM 
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;macro for patching non-kernel checksums 


-macro $fixchk name 
. =%ZmapO :physical map change 
name’ lod 
.=ceksum 
ckpass 
.endm 
-macro $f inchk 
page Dummy 
$dopatch localc 
ckpass 
fapply $fixchk,clst 
.endm 
;Macro to finish up kernel definitions 
«macro $f inker 
page LCode 
lkeren: .blkw 1 ;end of Local Kernel 
page RelVars 


lcomar=.-comar show much Stage vars to QUIT-check 
page Relcode 
rkeren: .blkw O :end of Rely Kernel 


;These must be loaded onto by rest of system 


cwpcin: .blkw comsts ;common stage entries 
jloop: .blkw 1 :system entry 
page Dummy 
.=rkerck :init cksum passwords 
ckpass 
-=lkerck 
ckpass 


page Dummy 
-endm 
;Macro to use at end of a .BIN that wants to keep loading 
-macro contload 


-end HFEOO 
.endm 
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0001 
0001 


PAGE 12 

;Now, do the default definitions 
BEFBUS <O, H4000>,<EO00, FOOO> 

DEFMEM TOTAL=G64 ,CODE=8, VARS=8,0PTV=8 


CODEPAGE REL, LIMIT RELVST, PHYSICAL RELLOD 
VARSPAGE VAR 


DEFIO <E100,E200,F 100, F200> 


DEFINT LEVEL1,LEVEL2,WOPS,SJIF 


DEFLIN Shoswwe om ;Halt on quits 

DEFREL 0,0 

MSTRIP 200 ;Allow 20 millisecond strips 
' 

DEFRLD ;No reloading 

DEFBEG < 

JSB R4,WS ;Clean restart and init 

JSB R4.WST ;Just enter system 

JSB R4,DSTAND :;Start DDT+STAGE only 


> 
;Give default values to the clock lists 


P$25.6==NIL 
P$4.6==NIL 


;end of stage.cfg 


IMPLOD.PLR; 1 


0000 


0050 
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;Define the initial pages to load 
rel lod=0O 
;Page origins 
locvst= H50 ; local vars after hardware 
loccst= H300- H8 ; local code, 8 for cksums 


O2F8 
0038 
0020 
0288 
4000 
5D50 


Istkin= D56 length of local 


locend=mO ;always permit 8K 
relvst= H5D50 ;stage vars 

;Define the logical pages 

Defpage LVars, org locvst, limit locsst 
Defpage LcIStk, org locsst, limit loccst 
Defpage LCode, org loccst, limit moO 


Defpage RelCode, map code, limit relvst, 
Defpage RelVars, org relvst, limit mi 


Defpage Vars, limit m2, physical var 


Defpage Dummy ;for non-code assembly 


: stack (words). 
sistkl= D32 : length of system (STAGE,DDT) portion 
locsst=loccst-<IstkIn*2> ;local stack area 


locals 


physical rel 


;Now set up the parameters for assmbling Stage 


DEFMEM TOTAL= D64,CODE= H8,VARS= H8,OPTV= D1G6 
764 pages in stage MD, 8 each code (and spare code), 


; required vars, 16 desirable + optional 


;four 16-device segments on 2 buses 


vars in stage MM 
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DEFLIN <level1..,.,..>  ;enable S-A DDT, 
shalt if quit,jiffy 


;File to insert for reload code 
DEFRLD <IMP.PKCORE>,.PKCORE 
DEFATN DDTATTN 
;Suppress all F traps for Platform 
-1f df PSE 
EOOoO FTrapvy = HEOOO 
-endc :df PSE 
;Now insert STAGE Kernel code 


- INSERT "STAGEK.PLR",STAGEK 
- INSRT STAGEK.PLR 


PAGE 


15 
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.comnt | 


Currently, 


PAGE 1 


Pluribus Stage System 


the stages are: 


LK Local memory Kernel checksum 

MD common M@mory Discovery 

RK Reliability page Kernel checksum 
BD common Bus Discovery 

CD processor Coupler Discovery 


Reliability page Code checksum 


LC Local memory Code checksum 

MM common Memory Map management 

ID I/o devices Discovery 

AR Application Reliability and initialization 


OOMNINOOSWNH=O 
"] 
a 


—s 


OOOA 
0004 
0500 
0005 
003C 
OFOO 
0078 
0010 
0258 
0400 
0020 
OACE 
FEED 
0040 
0078 
OOOF 
0020 
0040 
0008 


The operational system (sic) 


;some important parameters 


totsts= D10 ; total number of stages, see contab 

comsts=4 show many stages not in kernel 

stgrat= D1280 ;speed (in 100 micsec) to wun stage at 
stgtic=stgrat/ D256 ;stage clock ticks every fast rtc tick 


stgcyc=<2+totsts>"stgtic ;how often each stage gets to run 
memrat= D8*nmseqtstacyc :how long to wait to fix a comptr 
prrate=2*stgcyc ;time interval to give procs to start 


nproc= D1i6é ;how many procs max *must be power of 2* 
inirat= D1O*tstgcyc ;how many 25.6 ms ticks before reinit 
totstb=1_totsts :bit position of last stage 

bitstb=1_5 ;bit of stage (RC) that may run BLT subroutine 
stgpas= HACE :password to identify rely kernel 

ckpass= HFEED ;checksum to say recompute checksum 

bltmax= H40 ymax bytes per block transfer strip 
bitrat=2*stgcyc ;rate for BLT timeout 

anypro= HF ;special number for processor set 

LKPlen= H20 ;Local Kernel Patch area length. 

RKPlen= H40 ;Rely Kernel Patch area length 


cilnum= D8 ;Number of Traps to buffer in common 
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0000 


0000 


0002 
0004 


0006 
0008 
OOOA 
oooc 


0010 


0080 
0088 
OO8E 


0002 
8000 


F800 
0800 
FEOO 


PAGE 2 
;some hardware definitions 
page Dummy 


words=2 ;how many bytes (i e adresses) per memory word 
sign= H8000 :sign bit 


iomask= HF800O :significant bits to choose i/o bus 
businc= H800 ;oOffset to get from one bus to the next 
mapmsk= HFEOO ;significant bits to choose 4K common memory 


;Common I/O Bus Layout 

-=0 

iFirst the PID: ‘ 

pidsto: .blkw 1 ;address to store PID setting 

;reads back highest 

pidrel: .blkw 1 ;read-and-clear highest PID set 
.blkw 1 ;write to clear whole PID 

;RTC here: 

rtcadd: .blkw 1 ;how far into a bus for RTC time 

rtcpds: .blkw 1 ;PID settings: slow,,fast 

rtcsws: .blkw 1 ;IMP NUMBER SWITCH SETTING, 

RTCTEM: .BLKW 2 ;AND TEMPERATURE SENSORS 


;Now for couplers: 


coupIr: .b1lkb H70 ;coupler space on a bus 
bbcpas= HDE79 ;password to change coupler state 
bbcres=-1 ;reset the processor bus 
bbcfor=2 ;forward enable 
bbcbak=4 ;backward enable 


bbcwin: .blkw 4 ;BBC window, just after last coupler 
-bIlkw 3 ;answers, but not used : 
bbcmap: .blkw 1 :BBC map register 


bbcodd=2 ;key bit in BBC map 

bbcmsk= HFFF8 ;meaningful address bits for BBC map 
bbcwmk=<-1?bbcmsk>&-words ;bits within window 
bbcans= H2100 ;the bits the coupler reports 


;Pluribus device standards 


devtyp= HFFOO iwhat kind of device this is 
devinc= Hi0O :how much to get from one device to next 
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0000 
0000 
0002 
0006 
0008 


0000 
0000 


0002 
OOFC 


OOFE 


0001 
0002 
0003 


0001 
0002 
0004 


FC30 


PAGE 3 


;processor control register (R15) bits 


pchalt=1 :halt a processor in control register (%ctr1) 
perun=2 :start a processor 
pestep=pchalt}pcrun :step a processor 


;pseudo-control register bits 
7(communicates to DDT via left byte of "R15") 


locqut=1 ;processor "stopped" on a quit 
loci lo=2 ; ditto for -1 or funny illopr 
locfad=4 : ditto for FADE illopr 


;paper-tape reader parameters 


ptprdr= HFC3O0 ;typical address 
-iif ndf PTR, PTR = O znone if missing def 


-=0 

hsv : .blkw 1 ;status register 
-blkw 2 

“cr: -blkw 1 ;control register 

*ar : .blkw 1 :data register 


;*** various assigned pid levels 


.=0 
emtpid: .blkw 1 ;this PID is empty, go to next 


; PID table goes here 
-bIlkw 0125 
nopid: -blkw 1 ;pid when all real PIDs are empty 


.bikw 1 ;reserved highest PID 
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0006 O04B2 
OO1E OO1E 
OO2E OO2E 


0002 


00SO 


0052 
0054 
0056 
0058 
OO5A 
oosc 
OOSE 
0060 


0062 
0064 
OO66 
0068 
OOGA 


0078 
OO7A 
0088 
008C 
OO8E 
ooso 
0092 
0094 
0096 
00398 
OOAO 
OOA2 
OOA4 


OOAG 
OOA8 


0032 


OOAA 
OOAC 


PAGE 4 


thke IMP STAGE SYSTEM - 


lodint 


PAGE 
bitsnk=2 


ijiffy locals 
clokrt: .blkw 


quit locals 
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1 
1 
1 
1 
1 
1 
1 
1 
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LOCAL CODE >*** 


:first clobber interrupt handlers 


LVARS 
;]local memory bit sink 


;number of RTC retries (not zeroed) 


;unexpected quit handler 

:which quit vector (2A or 3A) 
;number of successful quit retries 
;last retry referencing here 

;last retry from this pe value 
;count of QUITS in QUIT handler 

; latest of above referenced here 

; with this PC 


;quittm though end of qx is a single logical block 


uquit: -bilkw 
quitv: -bilkw 
quitrt: .blkw 
rtryad: .blkw 
rtrypce: .blkw 
qgqhct: -bilkw 
qqhad: -bilkw 
qqhpec: .bilkw 
gquittm: .blkw 
quitad: .blkw 
quitst: .bikw 
quitpc: .blilkw 
qx: .blkw 


;end of block 


;illop locals 


snapbg: 

uillop: .blkw 
ix: .blkw 
iret -blkw 
uwst: .bilkw 
ujiffy: .blkw 
uquitd: .blkw 
uquits: .blkw 
uquitp: .blkw 
uctri: .blkw 
umap: .blkw 
stime: -blkw 
stim2: -bilkw 
@idp: -blkw 
myproc: .blkw 
procbt: .blkw 


1 
1 
1 
1 
7 


ae ee ee ae eo 


snapIn=.-snapbag 


-blkw 
wbikw 


procno: 
pid: 


1 
1 


; time of reference 
;address referenced 
;reg 8 

:reg O 

ireqs 1-7 


;beginning of snapshot 

;last F-illopr (simulated RO) 
:regs 1-7 (at last illop or jiffy) 
:regs 8, O (ditto) 


:last call to wst (or r4 at startup) (sim. R10) 


:;location of last “program in a loop" 


(sim. R11) 


;got unex quit trying to look here (sim. R12) 


;status at unex quit (sim. R1G) 


;address of place that did reference (sim, R14) 


imy own cnt! reg (R15) simulated 
:saved maps at illopr/quit 


; local copy of sytime (to avoid map changes) 
zhigh order time, 27.96 min/tick,51.50 tick/day 


;last pid dispatch 


;processor number from coupler 
;processor bit 


show much to save in snapshot 


;Pprocessor number 
;PID for software to poke in 


> ~ 
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OOAE mapcom: .blkw 1 ;communication page 


; local map table; this is a copy of cmap 
;maprel must be beginning of Imap and cmap 


Tmap: Imaptb 


;local table of illops 


0007 nsuer=7 ;how many registers in a SUE 

0008 ibuf1=nsuer+1 7remember trap no. & regs 

0004 nibuf=4 ;mumber of local ILLOP buffers 
0100 locipt: .blkw 1 ;pointer into following 


0102 locill: .bIlkb ibufl'nibuf*words ;local Tran/regs table 


51 


pluribus IMP Loader 
STAGEK.PLR;1 


-comnt 


Snapshot area. 


timeout, 
with the following priorities: 


is a 2, 
non-logical 
set R15 to O ("half-halted"). 


non-logical 


PAGE 6 
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Gets a copy of uillop thru procbt as of the last lock 
illopr, unexpected quit, or snapshot trap (Fxxx), 
If the area is "empty" (snapshotted R15 
to say “running"), any snapshot, quit, lock timeout, or 

illopr will overwrite it. Snapshots and lock timeouts 

In this state, any non-logical 


illopr or unexpected quit will still overwrite the snapshot, 
but the next snapshot or lock timeout trap won’t. Any of 


the high-priority events will 
other bits in the left half, 


set the simulated halt (1!) bit, and some 
in R15. DDT will interpret these bits, 


and the processor will hang in STAGE, if the processor is among the 


set in debug mode (DEBUGM). 


In the IMP, the snapshot will eventually 


be packaged up and sent off to TENEX by the tlog process, which sets 
the R15 back to 2 to say the snapshot is empty. DDT will cause a 
processor to rejoin the system by setting its R15 to 2 ( Gor 

P) when debugging. Likewise, DDT X and Z set the odd bit in R15 
to halt processors during debugging. 


0142 
0144 
0152 
0154 
0156 
0158 
O15A 
015C 
O15E 


0160 


0162 
O16A 
O1GE 
0170 


0174 


O17E 
0180 
0182 
0184 


OOOA 


snap: 
bitmyr: 
-blkw 1 
-bikw 7 
-blkw 1 
-blkw 1 
-bIlkw 1 
-blkw 1 
-bilkw 14 
-bikw 1 
-blkw 1 
bitmyc: 
-blkw 1 
bitmym: 
-blkw 4 
.bIlkw 2 
-bikw 1 
-blkw 2 


pidget: .blkw 5 
pidtot=.-pidget 


tempt: -blkw 1 
temp2: -blkw 1 
temps: -blkw 1 

1 


temp4: -blkw 


;BLT will reference here for registers of running procs 
;DDT "RO": illopr that triggered this snapshot 
;R1I-R7: saved regs 1-7 at latest event 

;R8: status at illopr 

;R9: PC at illopr or lock timeout 

:R10: last restart call (WST) 

:R11: PC at last "program in a loop" (FOO2) 

7R12: address referenced in last unex. quit (FOO1) 
;R13: status for unex. quit 

;R1i4: PC at last unex. quit 

;BLT will reference here to "start" or "stop" me 
:R1S: pseudo-control register (see above) 

;BLT will reference here for maps of running procs 
;maps at time of snapshot 

;32-bit system time at snapshot 

;last PID before snapshot 

;copy Of my coupler number and processor bit 


;list of pids, last = pid3 
; length of pidget 
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;Sstage local variables 


0186 loczer: .blkw O ;begin zeroing here for local init 
0186 quitfl: .blkw 1 ;non-zero means quit handler is running 
0188 wstage: .bilkw 1 ;what stage running 
O18A consol: .blkw 1 :address of console if exists, else O 
018C wdis: -bIlkw 1 ;bits on disable stages, turn off from right 
O18E wslsp: .blkw totsts :stack pointer save for wsleep. 
O1A2 Itime: .blkw 1 ;time stage is next set to be run 
O1A4 lclock: .blkw 1 ;clock we are using to time stage system 
O1A6 jtime: -blkw 1 ;the rtc reading last time we got a jiffy 
O1A8 svtime: .blkw 1 ;local clock reading at last stage 
O1AA utime: .blkw 1 ;when next to run stage LK 

0026 loczel=.-loczer ;how much to zero for local init 
O1AC mysegs: .blkb nmseg :my picture of common memory (MD) 
01B4 smdtim: .blkw 1 ;next time stage MD may run 
O1B6 smdflg: .blkw 1 ;flag to let stage MD do comptr fixes 
O1B8 newcom: .bIlkw 1 ;new value for map com. in stage MD. 
O1BA srkker: .blkw 1 ;stage RK kernel found if not odd 
O1BC srkrel: .oblkw 1 ;comrel at start of loop 
O1BE scdbus: .bikw 1 
01CcCO procd: .blkw 1 :word for discovering processors IPC job O 
01C2 smmok : -blkw 1 ;page found of correct type 
01c4 smmspa: .blkw 1 ;page found of spare type 
01C6 smmfre: .blkw 1 ;page found with least important type 
01ic8 smmfty: .blkw 1 ;type of free page we found 
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O1CA 
01D2 
01D2 


01D2 
O1EO 
O1EO 
O1EO 
O1EC 
O1EC 
O1EC 
O1FA 
O1FA 
O1FA 
0208 
0208 
0208 
0218 
0218 
0218 
0224 
0224 
0224 
0232 
0232 
0232 
0254 
0254 
0254 
0260 
0260 
0260 
O27E 
O27E 


0288 
O2F8 
O2F8 


02C8 


PAGE 8 
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;Define the local stacks 


-macro stack name,len 


-lall 


name’beg: .bikw len 
name’end: .bIlkw O 
name’stack: .blkw O 


.xall 
.endm 


; define stack name to be len words long. 


7 stack. 
; upper limit. 
: initial stack pointer. 


;Define the shared interrupt stack: 


stack 


i,<4> 


; Define stage private stacks next: 


stack 


stack 


stack 


stack 


stack 


stack 


stack 


stack 


stack 


stack 


1k,<7> 


md, <G> 


rk,<7> 


bd, <7> 


cd,< H8> 


re,<6> 


lc,<7> 


mm,< D17> 


id,<6> 


ar,< D15> 


; Then processor common 
page LclStk 


stack 


l,Istkin 


;Stage 


;Stage 


;Stage 


:Stage 


:Stage 


;Stage 


:Stage 


:Stage 


;Stage 


;Stage 


stack: 


slstack=lbeg!<slstk1*words> 


Local Kernel checksum. 


Memory Discovery. 


Rely Kernel checksum 


Bus Discovery. 


Coupler Discovery. 


Rely Checksum. 


Local Checksum. 


Memory Management. 


1/0 Discovery. 


Application Reliability. 


; define Istack. 


;use bottom in system (STAGE,DDT) 
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O2F8 
O2FA 


O2FC 
O2FE 


0300 
0304 
0308 
O30C 


O3OE 
0310 


0312 


0314 


0316 
0318 


O31A 
031C 


OS1E 


4000 


OOFC 


00c8 


0001 
0001 


07D8 
0708 


O7BO 


OAO8 
OAIC 
OSDE 


PAGE 9 

;Local STAGE Constants Area 
page LCocde 

; local page checksum block 


localc: .blkw 1 ;checksum on all of local 
hotlim: locend ;limit 


;Local kernel checksum block 


Ikerck: .blkw 1 ;checksum on just local kernel 
kerlim: Ikeren ; limit 


locbeg 
debugm: O ;bits for procs to be in debug mode .- 
offdis: O sbits to hang stages (don’t use bit 1) 
jpoll: -blkw 1 ;patched by ddt. 


;Faked PID to end PID read loop, configured by Stage BD 
pid3: nopid 

;parameter for maximum strip time 

mmaxst: maxstr 

:Clock list entries 


1$25.6: .word 1 ;Filled in later 
1$1.6: .word 1 


;user interrupt handlers 


attnpat: rfail ; ;gets ATIN interrupts 
jllopat: rfail ;gets TLLOPs 


;user ILLOP table overflow handler 


illopov: pillov ;called if CILLOV fills 
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.comnt | ‘ 
tables to control I/0 discovery and inter-processor coimunication 
bsadrs tells what local bus addresses to use, 


0320 EOOO bsadrs: bsadit ;table of addresses of I/O huses 
0322 FOOO 
0004 bsadil=.-bsadrs ;length of basdrs 
0324 8000 bsadrm: bsadmt ;memory addresses 
0326 8000 
0004 bsadml=.-bsadrm ;length of bsadrm 
.comnt | 


Word for removing buses. Correspond to entries in bsadrs, 
where bit 1 = basdrs+O, bit 2 = bsadrst+2, bit 4 = bsadrstd4 ... " 
maintained by stage BD 


0328 0000 buskil: O 


.comnt | 

Memkil table. A bit on says don’t use the memory. Bits are packed 
16 per word, for 64 memories in 4 words 

Word O has bits for memories O (bit 1) to 1E00O (bit 8000) 

Word 2 is memories 2000-3E00, etc. 


0004 memkil: .rept nmseg/2 
ie) 
032A 0000 .endr 
032C 0000 
O32E O000 
0330 0000 
Defpage LKPatch,org .,limit <.+LKPlen> 


0332 lkerp: .blkb LKPlen ;patch space within kernel 


/ 
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STAGEK.PLR; 1 PAGE 11 
;stage constants. in tables by stage 
;initial dispatch for stages MD and up 
0352 OAAA wpcint: smd00O.srko0o ; local kernel stages 
0354 OCcsO 
O356 416A sbd0O, scd0O.src0O ;common kernel stages 
0358 42C6 
O35A 4FFO 
OOOA nlocst=.-wpcint :how many stages in kernel 
;common code stages initialized from common file 
:system dispatch imitialized from target system file 
;initial stack pointers for stages MD and up. 
O35C O1EC wspint: mdstack,rkstack ; local kernel stages 
O3SE O1FA 
0360 0208 bdstack,cdstack,rcstack ;common kernel stages 
0362 0218 
0364 0224 
0366 0232 lestack,mmstack, idstack,arstack 
0368 0254 
O3GA 0260 


O36C O27E 
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O36E 
0370 
0372 


0374 
0376 
0378 
O37A 
O37C 
O37E 
0380 


0382 


0384 
0386 
0388 
O38A 
O38C 
O38E 
0330 
0392 
0394 
0396 


0398 
O39A 
O339C 
O3S9E 


0000 
4096 
40A8 
0003 


5D50 
SD5c 
SE28 
SE2E 
5E36 
5E90 
SEA4 
0000 
0000 
0010 


0000 
40sC 
40AE 
5D58 
5062 
0000 
5E34 
5E3C 
SES6 
SEA2 


0000 
FFFF 
AAAA 
5555 
0008 
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;table of consensuses to join 


contab: O 
segcon ;stage MD 
stgcon ;stage RK 
locsts=<.-contab>/words :stages in local 
;here to end are in rel vars 
concom: buscon ;staqge BD 
coucon ;stage CD 
rckcon ;stage RC, used by BLT, DDT 
loccon ;:stage LC 
memcon ;stage MM 
iocon ;stage ID 
inicon ;stage AR 
-iif nz totsts-<<.-contab>/words>,.error totsts defined wrong 
QO :stage (system) 
lcoml=.-concom ;locks unlocked in stage init 


;table of fixit words by stage 


fixtab: O ;Stage LK: none 

segfix ;:stage MD 

stgfix ;stage RK 

busfix ;stage BD 

coufix ;stage CD 

O :none for stage RC 
locfix ;stage LC 

memfix ;stage MM 

iofix ;stage ID, only use is sclear 
inifix ;stage AR 

:stage (system): none 


;Prototype memory test pattern for Stage MD 


smdcon: 0O,-1, HAAAA, HS555 


Imdcon=.-smdcon 
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*k*< STAGE System -- Variables on Every Page >*** . 
PAGE Vars 
0000 ..fo0=07. ;rmemember start of user vars if any 

4080 .=mO+bbcwin istart right after couplers 
4080 smdbuc: .blkw 1 ;bucket to just store in 

locdef wmlock,<:memory test lock - page 28> 
4084 smdblk: .bIkb Imdcon :place to do a memory test 
408C slfptr: .blkw 1 :pointer to this page 

locdef slfik,<;locked copy (+2) of slfptr - page 28>. 
4090 comptr: .blkw 1 ;map of current comm page 
4092 comtst: .blkw 1 ;timer word for comptr fixing 
4094 sytime: .blkw 1 ;this page’s copy of the master system time 
4096 segcon: .blkw 1 , 

locdef ,<;memory discovery consensus - page 28> , s 
409A sbikw 1 
409C segfix: .blkw 1 ;precessors who would change memseg table 
409E memseg: .blkb nmmseg :bit table of existing memories 
40A6 memtot: .blkw 1 ;number of pages of memory ‘ 
40A8 stgcon: .blkw 1 :consensus for stage RK 

locdef ,<;Common Kernel Discovery Consensus - page 28> 
40AC -blkw 1 
40AE stgfix: .blkw 1 ;procs who’d fix rely kernel 
40BO0 comrel: .blkw 1 :common kernel page address, odd->reload 
40B4 .=.+ HA& HFFFO+A :for a nice boundary for pagebc 


;see cpage macro above 


40B4 intime: .blkw 1 ;init timer held by timeout 
40B6 cksum: .blkw 1 ;page checksum 
40B8 tlimit: .blkw 1 ;top limit 
40BA pginit: .blkw 1 ;init routine this page if not O 
40BC topntr: .blkw 1 ;pointer to config/timeout table 
40BE type4k: .blkw 1 ;page type this page 
40CO Ppagebc: .blkw O ;page beginning in common 
0000 UTR AZ: 2aFGe 


oH foo :restore user’s page start. default to pagebc 
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60CO 


60C2 
6162 


6162 


6166 
6206 


6206 
6208 


620A 


620C 
620E 
620F 
6210 
6212 
6214 
6216 
6218 
6219 
G21A 
625A 


0008 


0001 
0040 


PAGE 14 
~=mi#. ;rest of vars through map 1 please 


;Table of Traps. 
;Contains 16 10-word buffers, each of which has 
;Trap num, proc mask, count, and R1-R7 


;Buffer definitions 


page Dummy 
-=0 
table cilbuf 
cilloc: .blikw 1 
cilpro: .blkw 1 ;Proc mask 
cilent: .bikw 1 ;Count 
cilreg: .blkw 7 ;Registers 
endtable cilbuf 


;Trap num 


page Vars 
cilovf: .bilkw 14 ;number of Traps missed on overflow 
cilops: .blkb cilnum*tlcilbuf ;room for CILNUM Traps 


cilend: .bikw O 
.if df PSE 


;PSE illop tables for NCC here instead 


pilnum=cilnum ;Same number of buffers 
Ppilovp: .blkw 2 ;two overflow indices 
Pilops: .blkb pilnumtlcilbuf ;ILLOPs go here 


pilend: .blkw 0 
.endc idf PSE 


dinit: -blkw 1 ;nz - display Traps, od - display both 
dhalt: .blkw 1 ;password 1ADE} => stop all procs if debug mode 


sidflg: .blkw 1 ;flag: set O if I/O config changes. 
;Paper tape reader interrupt variables here 


-if nz PTR 

ptrbl= H40 ;chars in ptr interrupt buffer 

ptrflg: .blkw 1 :1:read in,2:(verify).4:running 

ptrip: -b1kb 1 ; input buffer pointer 

ptrop: -blkb 1 ;output buffer pointer 

ptrst: -blkw 1 ;state if active 

ptres: .blkw 1 ;checksum so far 

ptrsr: -blkw 1 ;secondary return temp 

ptrfb: .blkw 1 ;first byte temp 

ptrbc: -blkb | ;byte count remaining 

ptrdn: .bikb 1 ;how much to adjust "." 

ptrb: -bIkb ptrbl ;interrupt buffer 
.blkb O 


-endc 


inz PTR 
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;Local STAGE Code begins here 
page LCode 


.comnt | 

Non-existant memory ("Quit") Interrupt handlers. 

initialize H2E and H3E to go to q50 and q70O respectively 
retry a data access if it hasn’t failed recently 

patterned quits have password as next instruction 

password is “nop foo" where foo is where to go if quit. 

"nop" itself isn’t a password 

if password = "nop .-2", a branch is next, followed by dispatch 
uquit is pointer to a routine for unexpected quits 


O3AO O335 qso: rtm qx 
O3A2 4818 0028 Ida r1,=%Zabrto 
O3AG 9004 br qi 
O3A8 0335 q7o: rtm qx 
O3AA 4818 0038 Ida ri,=%abrti . 
OSAE 6061 qi: Ida r6,(ri)+ ;get address he was after 
O3BO 3018 0054 sta ri.quityv 
O3B4 6051 Ida r5,(r1)+ ;and his status 
O3B6 3518 0186 eorm r1,quitfl 
O3BA SAGO ifnot zero ;not a QUIT in QUIT handler 
O3BC 7028 0064 lda r2,quitad ;old address 
O3CO 7038 0068 Ida r3,quitpc ;old pc 
03C4 3068 0064 sta r6,quitad 
O03C8 3058 0066 sta r5,quitst 
O3CC 7051 Ida r5,(ri) ;new pc 
OSCE 3058 0068 sta rS,quitpe :can now stand quits in handler 
;check for instruction fetch quit 
O03D2 4E6D 0002 if r6 <> =words(r5) & r6 <> =2*words(r5) 
O3D6 S14E 
O3D8 4E6D 0004 
O3DC 914B 
O3DE 6045 Ida r4,(r5)+ ;fetch his instruction 
O3EO 48FO Ilda r7.=0 :in case clock got the QUIT 
O3E2 7668 O1A4 if r6 <> Iclock ;QUIT not from local clock 
O3E6 9105 
O3E8 7OF8 O1A4 Ilda r7,®@Iclock :if not recent, it’s not a retry 
O3EC 7178 0062 sub r7,quittm 
endif 
snow see if it’s a recent QUIT and retry 
O3FO 4EFF if r7 <= = D015 & r2 = r6 & r3 = quitpe 
O3F2 9C22 
O3F4 4E26 
O3F6 8120 
O3F8 7638 0068 
O3FC 811D 
OSFE 48F1 Ida r7,=1 . 
0400 3078 0062 sta r7,quittm yindicate a hard quit 
0404 3178 0056 subm r7,quitrt ;retry must have failed 
0408 4FC8 if r4 .bit. = H8 ;extended instruction 
O40A 9492 
040C . add r5,=words ;skip extended ; ess 


endif 
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O40E 
0410 
0412 


0414 
O416 
0418 
O41A 
O41E 
0420 
0424 
0426 
0428 


042¢ 
042E 
0430 
0434 
0436 
043A 
043C 
043E 
0442 


0446 
044A 
O44C 
O44E 
0450 
0452 
0456 
0458 
O45A 


045C 
O45E 


0462 
0464 
0466 


O4G6A 
O46E 
0470 


0472 
0476 


7045 
4874 
A2F8 


SAO6 
4ECO 


80FF 


0494 


0052 


0068 


0062 


0058 
OOSA 


0062 


0056 


0068 


0068 


0186 


0494 
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else 


endif 

endif 

eorm ri,quitfl 

mtr qx 

ret quitst 
endif ;QUIT on instruction fetch 
call qsubr ;common quit stuff 
mtr qx :refetch regs 


Ilda r4,(rs) 


25-Jun-87 


11:20:52 


;check for quit pattern 


Ilda r7,r4 :get the nop offset 
;prepare for signed offset 
;must be NOP with non-zero offset 

if zero } r4 > =O } r4 > = H8OFF 


sll r7, H8 


call qsubr 
mtr qx 


+fix quit stuff 


Trap 1,<;Unexpected Quit--mem ref fail (H) - page 31> 


jmp @uquit 
endif 
sra. f7',.7 
add r5,r7 
sta r5,quitpe 


Ilda r5,quittm 
if r5 <> =4 


sta r2,rtryad 
sta r3,rtrypc 
endif 
addm r7,quittm 
lda r7,r4 
and r7,=7 
sll r7,1 
Ilda r2,=1 
addm r2,quitrt 
ria r4,4 
ifnot minus 
Ilda r2,=words 
endif 
if carry 


;QUIT we should retry 


;last QUIT retry succeed? 


;last QUIT wasn’t real 


;Save address 
;Ssave pc 


;remember current time 
;adjust xr for retry 


samount to adjust 
;count retry attempts, 


;auto-decrement 


addm r2,quitpce(r7) ::qx :mostly 


endif 
1f 4 .Bit. = 


;auto- increment 


subm r2,quitpe(r7) ;;qx 


failures undo this 


;clear quit Flag and resume code 


Trap 53,<;Quit on instr fetch (DESTGN PROB) (H) - page 31> 
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0478 
O47A 
O47E 
0480 
0484 
0486 
048A 
048C 


04390 


0494 
0498 
049C 
O4A0 


O4A2 
O4A6 
O4AA 


O4AC 


O4AE 


900C 
3068 
7031 
3038 
48B1 
3238 
4890 
4078 


4088 


3518 
4828 
3028 
48E6 


502E 
302E 
88FC 


4807 


4048 


OOS5E 
0060 
OOosc 
0494 


0052 


OAIC 
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else 
sta r6,qqhad 
Ida r3,(rt) 
sta r3,qqhpce 
lda r3,=1 
addm r3,qqhc 
Ida ri,=0 
call qsubr 

endif 

jmp ®uquit 
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;QUIT in QUIT handler 
:save QUIT address 
;and PC 


;and count counter 
t ;since a Trap could loop here 


:fix quit things; don’t touch quitfl 


;subroutine to set up quit stuff 


routine 


qsubr ,nosave, 


eorm ri,quitfl 
Ida r2,=<locqut_ H8>}pchalt 
sta r2,uctr] 

Ida r6,=3*words 


repeat 
lda 
sta 
unti 


r2,quitad(-r6) 
r2,uquitd(r6) 
1 loop 


endrepeat 


endrouti 


ne qsubr 


arg r1, uses r2,uses r6 
; fix quit flag. 


; set pseudo-halt and condition 
; record quit’s characteristics. 


;copy quit parameters. 
;to unexpected quit place. 


;system unexpected quit handler 


sysuq: 


jsb r4,wst 
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;level 1 interrupt. maybe remote power fail 


O4B2 O33D leveli: rtm ix 
04B4 7018 0000 lda r1,%lvli+%devno ;remote power fail? 
O4B8 4E91 if ri = #1 iyes 
O4BA 8108 
O4BC E016 Trap 26,<;Rmt pwr fail E/F Bus (NOT PROCS) (H) - page 23> 
O4BE 7018 0328 Ida ri,buskil ; ignore if some amputated 
04C2 8A03 if zero ;none are 
04C4 4048 OSAO jsb r4,haltus ;pause, then restart 
endif 
04C8 9008 else ;not a power fail 
O4CA 4868 01D2 lda sp,=istack 
O4CE 40F8 O31A call ®attnpat 7call user routine 
O04D2 8BAO03 if fail ;user didn’t handle it 
04D4 4048 OSDA jsb r4,wops ;unexpected interrupt, 
endif 
endif 
04D8 0O73D mtr ix 
O4DA 0401 ret %lvli+t%pstat 


;Include DDT routine if patched 


ROUTINE DDTATTN, NOSAVE, ARG R1, USES R2 
O4DC 7028 0004 LDA R2,%LVL1+%CURPC 
O4EO 4E18 FF80 IF Ri <> =%AREG1 } R2 <> =O ;Is this RESET/ATTN? 
O4E4 8103 


O4E6 4EAO 
O4E8 9103 
O4EA 4FFO FAIL RETURN ;No, do standard processing 
O4EC 4007 
ENDIF 
O4EE 4048 OSDE JSB R4,DSTAND 7;Go off to DOT. 


O4F2 4807 ENDROUTINE DDTATTN 
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O4F4 


O4F6 
O4F8 
O4FC 
0500 
0502 


0506 
0508 
OSOA 
OSOE 
0512 
0516 


0518 
O51C 
0520 
0524 
0528 
O52A 


OS2E 
0532 
0534 
0536 


O53A 
OS3E 
0540 
0544 


0548 


054C 
OS4E 


0001 


FC30 


033D 
7018 
7618 
9103 
4048 


7021 
8922 
7039 
4848 
7048 
8001 


7078 
3078 
7868 
183E 
8803 
4868 


3868 
49E1 
8A03 
4868 


7E68 
8105 
4878 
3478 


3048 


073D 
0405 


0008 
O4F4 


OSDA 


0008 
FFFF 
608C 


OoDO 
FCO2 
620E 
621A 
0040 


620E 


0040 
620F 


2000 
OOOA 


FCO2 
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PAGE 19 
;paper tape reader interrupt code 
-if z PTR 

level2=wops ;no ptr interrupts 

SET Zz PTR 
ptrad: ptprdr ;ptr address 
level2: rtm ix :level two interrupt routine 


.endc 


lda ri,%lvl2+%devno 


if ri <> ptrad ;some other device} 


jsb r4.,wops :serve one ptr only 


endif 
Ida r2,(r1) 73%sr 


if odd :go away if ptr busy still (how?) 


lda r3,%dr(ri) 

Ilda r4,=-1 

Ilda r4,miv/slfptr 

ifnot quit 

endif 

lda r7,mapvar 

sta r7,%map1 

ldab r6.ptrip :put the char in 
stab r3,ptrb(-r6) 


the buffer 


if loop ;buffer wrap 
Ida r6,=ptrbl 

endif 

stab r6,ptrip 

sub rG6,=1 

if zero ;buffer wrap 


Ilda r6,=ptrb! 
endif 
cmpb r6,ptrop 


if equal :buffer filled up} 
lda r7,=%4L2 :disable our interrupts 


iorm r7,A4lvlat%pstat 
endif 
sta r4,%mapi ;restore the map 
endif 
mtr ix 
ret %1lvl2+%pstat 
?z PTR 


:stop if buffer is full 
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-comnt 
Level 4 interrupt handler (Jiffy, local power fail and restore) 


OS50 033D sjif: rtm ix 
0552 7018 0018 Ida ri.%lvl4+%devno 
o556 A592 Pra, F4.,2 ;dispatch on three reason bits 
0558 8404 if carry :power fail = 2 bit 
OS5S5A E022 Trap 42,<;Proc Pwr Fail (H) - page 35> 
O55C 4048 OSAO jsb r4.,haltus :halt buddy too, if any 
endif 
O560 8904 if odd ;power restore = 4 bit : 
O562 £021 Trap 41,<;Proc RSTRTD after Pwr fail (H)- page 35> 
0564 4048 OAIC jsb r4,wst ;if bus was reset 
endif 
0568 9BO4 ifnot minus :jiffy should set 1 bit 
OSG6A 0O73D mtr ix 
O56C E023 Trap 43,<;illeg level 4 intrpt (H) - page 35> 
OSGE 9032 else ;got a jiffy 
0570 4868 01D2 lda sp,=istack ;g9et us an interrupt stack 
0574 4078 OS5D4 call relock ;clock stuck? 
0578 7628 O1A6 if r2 = jtime ;yes} 
OS57C 810B : 
OS7E 7018 O1A4 Ida r1,jlclock ; don’t find this clock 
0582 4078 ODCC call fndclk ; try to find a new clock 
0586 8A03 if fail ; couldn't find any clock} 
Trap 27,<;Can’t find an RTC(CALL MAINT if RSTRT fails)(H) - page 35> 
0588 E017 
page 35 
O58A 9002 else ' 
OS58C E004 Trap 4,<;RTC stppd--switched to new RTC (H) - page 35> 
endif 
OS8E 4048 OAIC jsb r4,wst ; reset stages. 


endif 
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0592 3028 O1AG sta r2,jtime ;remember this reading 
0596 7128 0314 sub r2,mmaxstr :give system a strip-time extra 
O59A 7128 O1A2 sub r2,ltime ;should stage have already run? 
OS9SE 9B19 ifnot minus znot yet time to worry 
O5A0 7018 OOIC Ida ri,%lvl4+%curpe 
O5A4 4838 SAFE Ida r3,=bz .-4 
O5A8 7631 if r3 = (rt) ;locking instruction? 
OSAA 8104 
O5SAC 4078 0654 call snaplok :yes, snap and untock it 
OS5SBO 9010 else ;maybe next one is 
OSB2 4A94 add r1,=2*words 
O5B4 7631 if r3 = (ri) 
O5B6 8104 
O5B8 4078 0654 call snaplok ;was a lock 
O5BC 900A else 
OSBE 4928 O500 sub r2,=stgrat 
O5C2 9B0O7 ifnot minus ;wait a bit more 
o5c4 4994 sub r1,=2'*words ;restore PC 
OS5C6 3018 OO8E sta ri,ujiffy 
O5CA O73D mtr ix . 
; Trap 2,<;Proc fail in LOOP mod/sftw timeout (H/S) - page 36> 
O5CC 4048 OAIC jsb r4.wst 
endif 
endif 
endif 
endif 
O5DO 073D mtr ix 
endif 
0502 040D ret %lvl4+%pstat 
;subroutine to read the RTC reliably 
; called from jiffy and stage AR 
routine rclock,nosave,result r2.uses r4 
repeat 
O5D4 7OA8 O1A4 Ida r2,@lclock ;read the clock 
OS5D8 70C8 O1A4 lda r4,@lclock :then read it again 
O5DC 4942 sub r4,r2 
OSDE 4F48 FFFO while r4 .bit. = HFFFO : can differ by up to 1500 usec. 
OSE2 SAO5 
OS5E4 48C1 Ida r4,=1 scount retries 
O5SE6 3248 0050 addm r4,clokrt 
OSEA SOFS5S endrepeat 
OSEC 4807 endroutine rclock 
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;*** illopr code - catch logical Traps **t 


OS5EE O33D il1lpO: rtm ix ;processor O (even) 
OSFO 4818 0020 lda r1,=%ilopo ;illopr level interrupt address 
OSF4 9004 br illec 
OSF6 O33D ilipi: rtm ix ;processor { (odd) 
OSF8 4818 0030 Ida r1,=%ilopt ;0dd proc interrupt 
OSFC 6021 Tite's Ilda r2,(r1)+ ;get the illegal instruction 
OSFE 6031 Ilda r3,(ri)+ ;copy processor status 
OGOO 3038 0088 sta r3,iret 
0604 7031 Ilda r3,(r1) ; and PC to return vector 
O6O06 3038 OO8A sta r3,irettwords 
OGOA 4868 0102 Ilda sp,=istack ;get the interrupt stack 
OGOE 40F8 O31C call @illopat :user illop processing (if any) 
0612 BAIC if fail ;user routine didn’t handie 
0614 4D28 EOOO eor r2,=Trapv . 
0618 4F28 FOOO ifnot r2 .bit. = HFOOO ;got an E-trap 
O61C 8A04 & 
O61E 4078 OGF4 call trapent ;record the logical trap only 
0622 9014 else ;Not E-illopr. Take a snapshot 
0624 7049 FFFC Ida r4,-4(r1) ;refetch the illop 
0628 4890 Ida r1,=0 ;eventual snapped R15 
O62A 4E28 1ADE if r2 = =dhpass ;got a FADE 
OG2E 8104 
0630 4818 0401 Ida r1,=<locfad_ H8>}pchalt :halting codes 
0634 3009 else 
;now see if a -1 (FFFF) or other (non-snap) illopr 
O636 4E28 1FFF if r2 = =crash?trapv } r2 .bit. = HEOOO 
O63A 9104 
O63C 4F28 EOOO 
0640 SA03 
0642 4818 0201 Ida r1,=<locilo_ H8>}pchalt ;halt codes 
endif 
endif ' 
0646 4078 O6G7C call snapill yrecord this snapshot 
endif 
endif 
O64A 4892 Ilda ri1,=words ;skip over the trap 
O64C 3218 OO8A addm ri,iret+words 
0650 073D mtr ix 


0652 0444 ret iret 
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;Routines for creating snapshots for Traps or Hung Locks 
;SNAPLOK unlocks the lock, and creates the snapshot and 
;trap table entry. SNAPILL does snapshot and trap table. 
;TRAPCNT just counts the trap in the (local or common) table. 


0654 1076 routine snaplok, arg ri, uses ri-r4 
O656 4994 sub r1,=2*words ;get index to point at instruction 
0658 6041 lda r4,(ri)+ ;get index reg no. 
O65A 4B8C7 and r4,=7 
O65C 9A04 ifnot zero ;got an indexed instruction 
O65E A2C1 sll r4,1 
OG6O 704C 0078 lda r4,ix-words(r4) :get its old contents 
endif 
O664 7241 add r4,(ri1) imust always lock with 2-wd inst 
O666 487C COOO Ida r7,=-mO(r4) :must be mapped address 
O6GG6A 8B04 if minus swoops. don’t touch 
O66C E014 Trap 24,<;Hung on invid s/w lock - page 38> 
O6GGE 4048 OAIC jsb r4,wst 
endif 
O672 48A1 Ida r2,=1 
0674 3024 sta r2,(r4) sunlock the lock now 
O676 4824 lda r2,r4 ;setup for snapshot 


OG78 4890 Ilda ri,=0 


pluribus IMP Loader 


STAGEK.PLR; 1 


OG7A 
O67C 


OG7E 
0682 
0686 
0688 


O68C 
o63g0 
0694 
O696 
0698 
O69A 
O69C 
O69E 
O6AO 
OGA2 
O6A4 
O6AG 


O6GA8 
OGAC 
O6BO 


O6B2 
O6B6 
O6B8 
O6BC 
O6BE 
O6CO 
O6C2 


O6C6 
OGCA 
O6CE 


O6DO 
O6D2 
O6D6 
O6D8 
OGDA 
OGDE 
OGEO 
OGE4 
OGE8 
OGEC 


OGEE 


93002 
1076 


3418 
3048 
48B8 
4848 


4878 
4858 
7054 
8009 
8A05 
49F1 
9B03 
7054 
SOFC 
4EDO 
9102 
3054 


4948 
105B 
88EE 


7078 
gg0D 
7038 
9903 
4EFO 
9108 
4838 


504B 
304B 
88FC 


48CO 
3048 
4811 
SAOD 
4E28 
8108 
7038 
3038 
3028 
8001 


4048 


0096 
0078 


AO8E 


0032 
FFFF 


2000 
0098 
0160 


o0og6 


0032 


0078 
0142 


0096 


1ADE 
OODO 


FCO2 
6208 


OA1C 
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entry snapill, 


jorm ri,uctrl 
sta r4,uillop 
Ida r3,= H8 
Ilda r4,=slflk 
repeat 
lda r7,= 
jda r5,=-1 
lda r5,(r4) 
ifnot Quit 
repeat while zero 
sub r7,=1 
until minus 
lda r5,(r4) 


;Save 


endrepeat 
if r5 <> =0 
sta r5,(r4) 
endif 
endif 


sub r4,=mi-moO 
sta r5,umap(-r3) 


arg rt-r2, 
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arg r4, uses ri-rd 


;set up pseudo-control register 


trap or lock address 
; Mumber of maps * 2, 
; locked self pointer on each page. 
; try to get lock up to 50 times. 
; in case we get a quit 
+; get locked self p. 


; we don’t have lock. 
; count first try, too. 


; We know it won’t quit now. 
+; we got lock. 
; release lock. 


+ next window 
; store that map value 


until loop 
endrepeat 
Ida r7,bitmyc ;what’s in snapshot now? 
ifnot odd yipchalt ;might overwrite 
Jda r3,uctr! jwhat snap to copy? 
if odd } r7 <> =O shas more priority 


Ida r3,=snapin 
repeat 


7;size of snapshot 


Ida r4,snapbg(-r3) 


sta r4,snap(r3) 
until loop 
endrepeat 
endif 
endif 
lda r4,=0 
sta r4,uctr] 
Ilda ri,ri 
ifnot zero 
if r2 = #dhpass 
lda r3,mapvar 
sta r3,%mapi 
sta r2,dhalt 
ifnot quit 
endif 
endif 
jsb r4,wst 
endif 


vyup, 


:copy important stuff out 


; clear similated ctl reg. 
;got a bad illop? 

;did we get a FADE? 
:yes, first reset vars map 


; then halt everyone 


back to stage now 
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OGF2 
OGF4 


OGFE6 
OGFA 
OGFC 
0700 
0702 
0706 
O7OA 
070C 
0710 
0714 
0718 


O71A 
O71E 
0722 
0724 


0726 


O72A 


9002 
1076 


7018 
8009 
4E18 
8106 
4818 
4078 
9010 
7018 
4B18 
2029 
48B0 


607B 
2079 
4EBE 
81FB 


3018 


6006 


6OBE 
0020 


OO7A 
0734 


0100 
0030 
0102 


OO7A 
0102 
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PAGE 25 


;enter here to just count the Trap, save reas 


entry 


lda ri,mi#typedk 


trapent, arg r2, uses ri, uses r3-r4 


;what page type? 


if nquit & ri = =vartyp ;good vars page 

lda r1i,=ix ;where reqs are 

call illent ;record Trap number in common 
else 

Ilda ri,locipt 

and r1,=ibufltwordst<nibuf-1> :force reasonable value 


sta r2,locill(ri)+ 

lda r3,=0 

repeat 
Ida r7,ix(r3)+ pnext reg 
sta r7,locill(r1)+ ;into buffer 
until r3 = =nsuer*words show much to copy 


endrepeat 
0100 ® sta ri,locipt 


endif 


endroutine snaplok ::snapil) trapent 
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072C 
O72E 
0730 
0732 


0734 
0736 


0738 
073C 


O73E 
0740 
0742 
0744 
0748 


O74A 
O74C 
O74E 
0752 
0756 
0758 
O75C 


O75E 


60C2 
6166 
6162 
6206 


1076 
48C4 


503C 
9927 


7073 
8002 
8A04 
4078 
900C 


4E72 
910A 
4438 
763C 
8104 
40F8 
9002 


SOFO 


072C 


0790 


0014 
0730 


O31E 
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; ILLCNT 

;count logical traps in common 

;will manage two tables optionally 

;also action on overflow may be modified 

;R2 has trap number, R1 points to registers to copy 


;tables to drive the routine 


I? Gf PSE 
jillbuf: cilops,pilops :illopr buffer addresses 
illend: cilend,pilend ;ends of same 

wttt ;PSE 
illbuf: cilops,~1 :illopr buffer addresses 
illend: cilend,O ;ends of same 

.endc 


routine illcnt.arg ri-r2,uses ri,uses r3-r4 


Ida r4,=illend-illbuf show many ILLOP tables 


repeat 
lda r3,illbuf(-r4) ;next illop buffer | 
ifnot odd ;real buffer 
repeat 
Ida r7,(r3) 
if quit } zero ;a free entry 
call illcop :set up its regs 
break :;;success :;found usable entry 
endif ?;success 5 
until r7 = r2 ;got same entry 
add r3,=Icilbuf 
if r3 = illend(r4) ;exceeded buffer 
call @illopov ;call overflow-handler 
break ;pass out succeed/fail 
endif 


endrepeat 
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sHere when we found an entry to use (SUCCESS) 
sor table is full (FAIL) 


0760 SAOF if success :got a usable entry 
O762 48F1 Ida r7,=1 
0764 727B 0004 add r7,cilent(r3) 
0768 8001 ifnot quit 

endif 
O76A 207B 0004 sta r7.cilent(r3)+ 
O76E 7078 OOA8 lda r7,procbt 
0772 7473 ior r7.(r3) :;cilpro 
0774 8001 ifnot quit 

endif 
0776 3073 sta r7.(r3) ;:cilpro 
0778 3408 6206 iorm rO,dinit :signal a change 
O77C 9007 else ;just overflow then 
O77E 48F1 Ida r7,=1 
0780 7278 60CO add r7,cilovf ;bump overflow cnt 
0784 8001 ifnot quit 

endif 
0786 3078 60CO sta r7,cilovf 

endif 
endif 

O78A 4ECO until r4 = =O ;done list 
078C 81D6 


endrepeat 


O78E 6006 endroutine illent 
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7 ILLCOP 

;Routine to set up the trap buffer for a new trap 
yin the common trap area (CILOPS, etc.) 

;callted with R3/ pointer to trap buffer, 

;R1/ pointer to saved registers,R2/trap num 


0780 1076 routine illcop,arg ri-r3 
0792 1056 PUSH R5 
0794 2023 sta r2,(r3)+ ;;cilloc 
O796 48FO jlda r7,=0 ;clear the count 
0798 2073 sta r7,(r3)+ ::cilpro yand proc mask 
O798A 2073 sta r7,(r3)+ ::cilent 
O79C 48DE lda r5,=<1lcilbuf-cilreg> ;how much to copy 
repeat 
O7SE 6071 lda r7,.(ri)+ ;next reg to save 
O7AO 2073 sta r7,(r3)+ ;to trap arra 
O7A2 49D2 sub r5,=words ;copied a word 
O7A4 8AFD until zero 
endrepeat 
O7A6 6056 POP RS 
O7A8 499E sub r1,#nsuer*words ; and R1 
O7AA 4938 0014 sub r3,=lcilbuf ;back to beginning 


O7AE 6006 endroutine illcop 
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O7BO 


O7B2 
O7B6 
O7B8 
O7BA 


O7BC 
O7CO 
O7C4 
O7C6 


O7C8 
O7CC 
07D0 


O7D4 


0706 


0708 
O7DA 


1076 


703C 
8002 
8B02 
48B0 


487B 
4E78 
9202 
48FO 


307C 
723C 
4078 


6006 


4807 


4FFO 
4007 


6162 


0014 
OOAO 


6162 
072C 
0790 
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;PILLOV 
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sPick the next ILLOP buffer to fill if all full 
;Uses them in round robin order 
;R1 points to registers to copy, 


:R3 is address of buffer to use, R4 says which set of ILLOP buffs 


R2 is trap number, 


;Always succeed return to say "found a buffer". 


«At GP PSE iThis 


is 


a Platform feature 


routine pillov,arg ri-r4,result r3 


Ilda r3,pilovp(r4) 
if quit } minus 


Ilda r3,=0 
endif 
Ilda r7,=lcilbuf(r3) 
if r7 >= =pilnumticilbuf 
Ilda r7,=0 
endif 
sta r7,pilovp(r4) 
add r3,illbuf(r4) 
call illcop 
endroutine pillov 
oUF 7df PSE 
pillov = rsucceed 
.endc :df PSE 
;definitions for null routines 


routine rsucceed,nosave 
endroutine 


routine rfail,nosave 
fail return 


endroutine 


;trap to overwrite 
;check for troubles 


;default if any 


pnext buffer to use 
sat end of buffers 


;clear offset 
;remember for next one 


;address in trap table 
;set up for our trap 


77 
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FF a ae ake she he ate local memory stage code a 


.comnt | 
Stage entry mechanism 


The stage cycle either exits to loop and reenters at sjS. or will 
fail some test and stay in the stage system 

Stage O (LK) unilaterally enables interrupts. 

Map 1 is set to mapvar, map 2 to mapcom. 

Maps O and 3 are set to mapcom (local stages) or to comrel 


O7DC 1076 routine wsleep,local ri-rs 
O7DE 1016 
O7EO 1026 
O7E2 1036 
O7E4 1046 
O7E6 1056 
O7E8 7018 0188 ida ri,wstage swhich stage running. 
O7EC 8A07 if zero ;remember next time to run stage O (LK) 
O7EE 7OF8 O1A4 Ilda r7,@lclock ;time now 
O7F2 4A78 O5S00 add r7,=stgrat inext time to run stage O (LK) 
O7F6 3078 O1AA sta r7,utime 
endif 
O7FA 3069 O18E sta sp.wsisp(ri) ;save stack pointer. 
O7FE 7078 018C lda r7.wdis 
0802 4F78 0400 if r7 .nbit. =totstb ;could run system now 
O806 8A19 
0808 7078 0160 Ida r7,bltmyc ;pseudo-hal ted 
O8s0c 8S0D if odd & debugm .bit. procbt ;and debugging 


O80E 7078 O30C 
0812 7778 OOA8 


0816 SAO08 
0818 4868 02C8 Ilda sp,=slstack ;operating system stack area 
O81C 40F8 0310 call ®jpoll :run DDT 
sj2: ;(DDT returns with a JMP) 
0820 4078 OS3S0 call polbit sand BLT 
0824 9009 else 
0826 7078 OOBO setmap mO,maprel ;where main system pointer is 
082A 3078 FCOO 
O82E 4868 O2F8 Ilda sp,=lstack ;main system stack 
0832 40F8 SOE call ®jloop ;run it 
sj6: 7(system returns with a JUMP) 
endif r 
0836 9003 else 
0838 30F8 O18A sta r7,@consol ;hung: do STAGE lites 
endif 


; (MORE ) 
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083C 
0840 
0844 
0848 
084c 
0850 
0854 
0856 
O85A 
O85sc 
0860 


0864 
0868 
O86C 
0870 
0872 


7OF8 
4A78 
3078 
7018 
7078 
6779 
9A10 
4F78 
8A05 
4078 
7078 


7018 
7O0B8 
7138 
9B02 
4890 


O1A4 
0500 
O1A2 
0188 
018C 
OEB8 


0020 


ogs0 
018C 


0188 
O1A4 
O1AA 
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lda r7,@lclock 

add r7,=stgrat 

sta r7,1time 

Ilda ri,wstage 

Ilda r7,wdis 

if r7 .bit. bittab+2(r1)+ 


if r7 .nbit. =bltstb 


call polblit 
lda r7,wdis 
endif 
Ida ri,wstage 
lda r3,@1lclock 
sub r3,utime 
ifnot minus 
Ida r1i.=0 
endif 
endif 


:set up when stage is next to run 


;next stage runnable? 
7no, try other stuff 


;running enough for BLT 


; needed below. 


; time now ‘ 
;time to go to stage O 


istart again at stage O 
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0874 
0878 
O87A 


O87C 
0880 
0884 
0888 
O88c 
O88E 
0892 
08396 
0898 


O89A 
O89gc 
O8A0 
O8A4 


O8A6 


O8AA 
OBAE 
O8BO 
O8B4 
O8B8 


O8BA 
O8BE 
Osco 


O8C2 
o8c4 


O8C6é 
O8cs 


O8scc 
O8DO 
O8D4 
O8D8 
O8DA 
O8DE 
O8EO 


4E18 
9202 
4890 


3018 
7008 
7068 
7048 
s92C 
3048 
7048 
8002 
901A 


0888 
4818 
4878 
48E6 


4858 


775E 
8A06 
3078 
3018 
8001 


4978 
A6D1 
BAFS 


49E2 
8BFi 


EO11 
4048 


3048 
3048 
7068 
8006 
7028 
8003 
3028 


0014 


0188 
O1A4 
OOAO 
OOAE 


FCO4 
8030 


7FFF 
7E00 
8000 
032A 


FCO2 
60390 


0200 


OA14 


OOAE 
FCO4 
8094 
SEAA 


OOA2 
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if ri >= =totsts'words 


Ilda r1,=0 
endif 
sta ri,wstage 
Ilda r5,@lclock 
lda r6,stime 
Ida r4,mapcom 
ifnot odd 
sta r4,%map2 
Ida r4,m2/comptr 
if quit 
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;wrap around to stage O. 
7all branches need this 
;if there’s no sytime 
;MAPCOM exists 


;find current com page 


;got a quit from com page - smash all com pointers 


inh .L4 
lda r1,= H7FFF 


Ida r7,=<nmsegt D8- 
Ilda r6,=nmseg-words 


repeat 
Ida rS.=sign 
repeat 
tfnet rh .btt. 


sta r7.%mapt 


j;takes a while ; 
; largest odd mumber 
1>* H200 :;last possible map 


memkil(r6) ; can we use? 


sta ri,mi#comptr 


ifnot quit 
endif 
endif 
sub r7,= H200 
sri r5.4 


until zero 

endrepeat 

sub r6,=words 

until minus 
endrepeat 
Trap 21,<:Lost our 
jsb r4,wstcom 

endif 


sta r4,mapcom 
sta r4,%map2 
Ilda r6.m2#sytime 


ifnot quit 
Ilda r2,m2#sytim2 
ifnot quit 
sta r2,stim2 
endif 
endif 


endif 


; next page. 
; bit for this page, 


7 next memseq 


comm pg (H/S) - page 47> 
j;now restart stage 


:in case it changed © 


;parity okay 
y;high-order time 


;copy into local 
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:Here with R6/ best estimate of System time (SYTIME or STIME) 

;R7/ WDIS 
O8E4 7668 OOAO if r6 <> stime ;time ticking along 
O8E8 9104 
O8EA 3058 O1A8 sta r5,svtime ;Make jiffy time track 
O8EE 9014 else ;system stop or no SYTIME? 
O8FO 4835 lda r3,r5 
O8F2 7158 O1A8 sub r5,svtime 
O8F6 A4D9 sra r5, H9 
O8F8 SAOF ifnot zero 751.2 ms gone by 
O8FA 4F78 0400 ifnot r7 .bit. =totstb > running all stages yet? 
O8FE 8A05 
03800 7078 O30C ifnot debugm :and no debugging? 
03904 8A02 
Os06 EOOB Trap 13,<:Sys missed a tick (H) - page 48> 

endif 
endif 
0808 3038 O1A8 sta r3,svtime 
Ogs0c 4AE1 add rG,=1 ;tick in an orderly fashion 
OSOE 4844 Ida r4,r4 
0910 9903 ifnot odd :;MAPCOM’s there 
0912 3068 8094 sta r6,m2/#sytime 
endif 
endif 
endif 

0916 3068 OOAO sta r6,stime ;our copy of system’s time 

;Now set up maps for consensus, dispatch 
OS1A 4E96 if ri >= =locsts*words ; common stage 
091C 9207 
O91E 7048 80BO Ilda r4,m2/comrel get com rely ptr 
0922 4848 7EOO and r4,=nmseg* H8* H200- H200 
0826 3048 OOBO sta r4,maprel ;keep maprel current. 

endif 

082A 3048 FCOO sta r4,%mapo ;rely or com page 


O9S2E 3048 FCO6 sta r4,%map3 ; locking on com or rely page 
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;Stay in a consensus, done automatically by STAGE 

;A consensus is a three-word block: 

; <smoothed consensus> 

7 <next consensus (lock)> 

; <time to update consensus> 

;CONTAB has a table by Stage number of consensi to join 


0932 9923 ifnot odd ;;maprel mapcom ;page for consensus 
0934 7049 O3GE Ilda r4,contab(r1) 
o38s38 SA20 ifnot zero ;consensus to join. 
OS3A 48D0 Ida r5,=0 ;value if quit 
os3c 705C 6002 lda r5,m3-mO+2(r4) 
0340 8005 if nquit & zero > got it, but locked. 
0942 8A04 
0944 705C 6002 lock r5,m3-mO+2(r4) 
0948 SAFE 

endif 
OS4A 7458 OOA8 jor r5,procht 
OS4E 4838 FFFF Ilda r3,=-1 :in case QUIT 
0952 703C 0004 lda r3,4(r4) 
Os56 8003 ifnot quit 
0858 7138 OOAO sub r3,stime 

endif 
OS5C 4F38 FFOO if r3 .bit. = HFFOO ; time to update consensus 
OS60 SAOA 
o962 3054 sta r5,(r4) 
0864 7038 OOAO Ida r3,stime 
0968 4A38 OO3C add r3,=stgcyc 
OS6C 303C 0004 sta r3,4(r4) 
0970 7058 OOA8 Ida r5,procbt 

endif . 
0974 305C 0002 sta r5,2(r4) 

endif 
endif 

0878 7078 OODO Ida r7,mapvar ;set up map 1 for free 
OS7C 3078 FCO2 sta r7,%map1 
O9880 7069S O18E lda sp,wsisp(r1) :restore stack pointer for this stage. 
0984 6056 endroutine wsleep 
O986 6046 
0988 6036 
OS8A 6026 
OS8C 6016 
OS8E 6006 


;POLBLT - poll BLT after fixing maps 


;routine polblit 
03880 7048 OOBO polbit: Ida r4.maprel 


0994 3048 FCOO sta r4.%mapo ‘ 
0998 3048 FCOG6 sta r4,%map3 
>; setmap <mO,m3>,maprel : setup to call bit 
OSSC 4008 45FE jmp bit ; poll block transfer. 
; call bit 


;endroutine polblit 
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OSAO 
OSA2 
O9A6 
OSA8 
OSAC 
O9AE 
OSBO 
OSB2 
OSB6 
OSB8 


OSBA 


OSBE 
osco 


osc2 
osc4 
oscs8 
oscc 
OSCE 
osD2 
osD4 


OsD8 


OSDA 
ogspc 


OSDE 
OSEO 
OSE4 


OSEG 
OSEA 


0210 
7018 
800A 
7018 
8002 
9006 
4891 
3018 
8002 
0290 


4818 


5021 
88FF 


8508 
4818 
3018 
8006 
3008 
4892 
3018 


9022 


EOOG 
9020 


48E1 
3068 
901C 


3038 
4048 


FF3E 


FF20 


FFSE 


O7D0 


OAIC 
FF20 


FF28 


FFSE 


0160 


OOAA 
OAIC 


PAGE 35 
:Various entries to stage 
; jsb r4, to WS, WST, WSTCOM, DSTAND, HALTUS, WOPS 


;Power fails come here - stop buddy and wait awhile, 
;then get us and buddy into stage again (if we're still powered} ) 


haltus: rst %f1 ;assume no bucidy 
Ida r1i,%cpui+%etr) :see a proc? 
ifnot quit 
Ida r1,%cpui+%regod prunninag? 
if quit 
Ilda ri,=pchalt ;stop our buddy 
sta ri,%cpuit%etr 
ifnot quit 
sst %f1 ;we successfully halted buddy 
endif ° 
endif 
endif 
lda ri,= D2000 ynow wait awhile 
repeat 


da r2,,.¢-#1) 
until loop 


endreneat 

i 1 ;got a buddy to start 
Ilda r1,=wst swhere to restart 
sta r1,%5cput+%regO 
ifnot quit 


sta rO,%cpuit%reg4 ;buddy starts "here" 
Ilda r1,=pcrun 
sta ri,%cpui+%etr] 
endif 
endif 
br wst 


;Got an interrupt we weren’t expecting 


wops: Trap 6,<;Unexpetd intrpt (Poss RESET/ATTN) (H) - page SO> 
br wst ;restart staqes 


renter here to start in STAGE+DDT (if DEBUGM set up) 


dstand: Ilda r6,=pchalt ;just stop us in STAGE+DDT 
sta r6,bitmyc ;set my halt control 
br wst ;enter stace 


;processors are normally started here 


wstini: sta r3,procno 7r3 preset by startup 


jsb r4.wst 
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; WSUB - routine to smash all init timers. 
routine wsub,nosave,uses ri-r3 


OSEE 4818 0050 Ida ri,=%novarp for all pages. 


repeat ‘: 
OSF2 5029 OOBO lda r2,Imap(-r1) ; next page in table. 
OSF6 9906 ifnot odd : any page there. 
O9SF8 3028 FCOG6G sta r2,%map3 ; bum off of the clear. 
OSFC 7038 AOB4 lda r3,m3/intime ; smash init timer 
OAOO 8001 ifnot quit ; ignore quits. 

endif 
endif 

OAO2 88F8 until loop 

endrepeat 
OAO4 4807 endroutine wsub 


;start here from loader 


OAOG 0000 setup: hit ;continue to start system 
OAO8 4818 OSAO ws: Ilda ri,=q50 yneed quit handler 

OAOC 3018 OO2E sta r1,%abrtO+t%serve ;in even guy at least 
OA10 4078 OSEE jsb r7.wsub ;set inits, please 

OA14 4818 7FFF wstcom: Ilda r1,= H7FFF 

OA18 3018 OOAE sta ri,mapcom ; largest positive odd int 


;fall into wst 


;here to reset wst code 


OAIC 3048 OO8C wst: sta r4,uwst ;Save reason for restarting stage 
OA20 0888 inh .L4 :iiffy would need a clock 
OA22 4890 Ilda r1i,=0 
OA24 4828 0026 Ilda r2,=loczel ;how much to clear » 4 
repeat 
OA28 101A 0186 sta ri, loczer(-r2) 
OA2C 88FE until loop 
endrepeat 
OA2E 6GO1A 0142 Ida ri,snap(r2)+ ;bum - sets R2 = 2 
OA32 8A03 if zero ;we may have just been loaded 
OA34 3028 0160 sta r2,bltmyc ;;pcrun 
endif ;so stop spurious Snap 
OA38 4868 O1EO Ida r6.=lkstack ; needed by SBAD and LK. 
OA3C 4078 ODSE call sbad ;turn off stages after LK 


;fall into stage LK 
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Stage LK - Checksum Local Kernel 


Set up interrupts, enable. Checksum local stage kernel. If okay, 
look for local I/O (console, etc.). Discover some RTC. 


Someday, make local I/O discovery table-driven. 


33;81k00: 
repeat 

OA4O 48A0 lda r2,=0 
OA42 3022 sta r2,(r2) 
OA44 4818 OO3E Ida ri,=%abrti+%serve 

repeat 
OA48 GO3A OASA Ida r3,inter(r2)+ 
OA4C 3031 sta r3.(r1) 
OA4E 4998 sub r1,=%abrt1-%ilopt 
OA5O 8BFC until minus 

endrepeat . 
OAS2 4818 O4AE lda r1i,=sysuq 
OASG 3018 0052 sta ri,uquit 
OASA 4892 lda ri,=bitsnk 
OASC 7038 FF8O lda r3,%areqi 
OAGO 8003 ifnot quit 
OAG2 4818 FF8O Ida r1,=areg1 

endif 
OAGG 3018 O18A sta ri,consol 
OAGA 4078 OE10 call cksub, ]}kerck, locend 
OAGE O2FC 
OA70O 4000 
OA72 9103 ifnot equal 

Trap 5,<;Local Kernel 

OA74 EOOS 
age 52 
OA76 0000 hit 

endif 
OA78 7018 OOAA lda ri,procno 
OA7C 48A1 Ilda r2,=1 
OA7TE A321 Pit FI 0K4 


OA8O 3028 OOA8 sta r2,procht 


Cksum Broken-FATAL to Proc (H/S) 


;Checksum Local Kernel. 
; forever. , 
ymake location O halt us 
:setup interrupt vectors 
;vector value. 


:step to next vector. 


:general unexpected quit handler. 
;where to go on unex. quit 


:where to store lites if no console 
:console is here, if at all. 

;if console exists 

;console addr. for lights code. 
;tell lites where to go. 


;cksum local kernel. 


;cksum bad 


;wait for help 


;my proc number 


imy proc bit 


- page 52> 
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OA84 
OA86 
OA8BA 
OA8BC 
OAB8E 


OA92 
OAg4 


OA98 


OASA 
OASC 
OASE 
OAAO 
OAA2 
OAA4 
OAAG 
OAA8 


4890 
4078 
8A04 
EO1S 
4048 


08093 
4078 


9004 


O3A8 
OSF6 
O3A0 
OSEE 
os50 
OSDA 
O4F6 
O4B2 


ODCC 


OA1C 


OoDSO 


PAGE 38 
jlda ri,=0 yany clock will do. 
call fndclk 
if fail 
Trap 25,<:Stge LK: can’t find a clk - page 53> 
jsb r4,wst ;start stages up again. 
endif 
enb .Lit+.L4 ;enable jiffies and attention. 
call sokay ;pass this stage . 
endrepeat 


initial interrupt vectors. 
inter: q70 

illpi 

qs50 

il1lpo 

intab! 


pluribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 54 
STAGEK.PLR; 1 PAGE 39 


.comnt | 

Stage MD - Discover all useable memory pages 

First useable page will become communication page 
Maintains a bit-table of these pages, segtab, in common. 
Checks self-pointers and comm-pointers for each page. fixes 
them if wrong. Builds copy of memseg, mysegs, in local. 
Maintains memtot, the number of pages in all memseg words. 


smdoo: 
repeat 
OAAA 48FO Ilda r7,=0 
OAAC 3078 O1B6 sta r7,smdflg spermit comptr fixes this pass 
OABO 7078 OOAO Ilda r7,stime 
OAB4 4A78 OFOO add r7,=memrat 
OAB8 3078 O1B4 sta r7,smdtim swhen nxt to permit them 
repeat 
OABC 48F1 Ilda r7.=1 
OABE 3078 O1B8 sta r7,newcom ;no com page yet 
OAC2 48A0 lda r2,=0 :first mem segment 
repeat 
OAC4 48B0 Ilda r3,=0 :first of segment 
OACG 4890 Ilda r1i,=0 smemory picture 
repeat 
OAC8 707B OEB6 lda r7.bittab(r3) sbit for nxt memory 
OACC 777A 032A tst r7.memkil(r2) 
OADO 8A08 if zero ;use this memory? 
OAD2 4078 OB5S8 call smdtst ;do memory test 
OADG SAO3 if sticceed 
OAD8 741B OEBG ior r1i,bittab(r3) rbuild picture of memory 
endif 
OADC 4078 O7DC call wsleep 
endif 
OAEO 4AB2 add r3,=2 
OAE2 4E38 0020 until r3 = = H20 4s 
OAEG 81F1 
endrepeat 
OAE8 301A O1AC sta ri,mysegs(r2) ;save mem picture 
OAEC 4AA2 add r2,72 
OAEE 4EA8 until r2 = =nmseg 
OAFO 81EA 


endrepeat 
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:now see if we match the system 


OAF2 48A8 Ida r2,=nmseg 
OAF4 7078 OOAE lda r7,mapcom 
OAF8 9921 ifnot odd ;do we see system 
OAFA 48D0 Ida r5,=0 ;count segments we don’t like 
OAFC 48B0O Ilda r3,=0 pPpaqge count 

repeat ; 
OAFE 49A2 sub r2,=2 
OBOO 9B16 until minus :all segments done? 
OBO2 7O1A O1AC lda ri.mysegs(r2) 
OBO6 707A 409E lda r7,.memseg(r2) : 
OBOA 8003 if quit }) r7 <> ri :quit or don’t match system 
OBOC 4E71 , 
OBOE 9108 ‘ 
OB10 4078 OD2E call sfxbad itry to fix things 
0B14 9103 ifnot equal ;couldn’t do it 
OB1i6 4AD1 add r5,=1 ;count a bad .segment 
OB18 SOO0A break 

endif : 
OBiA 301A 409E sta ri.,memseg(r2) ;save our picture 
endif 3 

OB1E 4E90 repeat until ri = =O :count the bits 
OB20 9105 
OB22 4AB1 add r3,=1 
OB24 4B19 FFFF and ri,=-i(r1) 
OB28 SOFB endrepeat 
OB2A SOEA endrepeat 
OB2C 4EDO if r5 = =O 
OB2E 8105 
OB30 3038 40A6 sta r3,memtot ;remember total counts 
OB34 4078 OD22 call sclrok 

endif 
OB38 9008 else 

Trap 50,<;No usble comm mem (MEM PROB. CALL MAINT) (H) - page 55> 
OB3A E028 
age 55 
OB3C 4878 7FFF lda r7,= H7FFF ;our com page is gone 
OB40 3078 OOAE sta r7,mapcom 
OB44 4078 ODSE call sbad 

endif 
OB48 3008 O1B6 sta rO,smdfla ;disable comptr fixes 
OB4C 7078 01B4 lda r7,smdtim swhen next to allow them 
OBS5O 7178 OOAO sub r7,stime ; 
OBS54 8BB4 until minus 
endrepeat 


OBS56 SOAA endrepeat 
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OB58 
OBSA 
OB5C 
OBSE 


OB6O 
OB62 
OBG4 
OB66 
OB68 


OBGA 
OBGE 


OB70 
OB74 
OB76 
OB78 
OB7A 
OB7C 
OB7E 
OB80 
OB82 


OB84 
OB88 
OBBA 
OB8C 
OBSO 


OB92 
OB96 
OB98 
OBSC 


OBSE 


OBA2 
OBA4 
OBAG 
OBA8 


1076 
1016 
1026 
1036 


4813 
A298 
ATA4 
4A12 
48F8 


101F 
88FE 


3008 
8002 
9007 
6036 
6026 
6016 
6076 
4FFO 
4007 


7078 
8005 
8A04 
7078 
SAFE 


4078 
8A04 
3008 
SOEE 


3008 


6036 
6026 
6016 
6006 


FCOO 


4080 


AQ82 


A082 


OBAA 


AOQ82 


AQ82 
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;SMDTST is the memory test routine for Stage MD. 
;It gets quits from nonexistant memory and test memory, 
;couplers, locking. It also does the self pointer and 


;comptr tests. R2 contains the segment 


routine smdtst,arg r2-r3,local 


Ilda ri,r3 
sll ri, D8 
rrelor2,4 
add r1,r2 
Ida r7,=%map3+words-%mapO 
repeat 
sta r1,%mapO(-r7) 
until loop 
endrepeat 
sta rO,smdbuc 
if quit 


fail return 


endif 
lda r7,wmlock 
if nquit & zero 


lock wmlock 


endif 
call smdts2 
if fail 
unlock wmlock 
fail return 
endif 
unlock wmlock 


endroutine smdtst 


index and R3 the memory index. 


ri-r3.uses r5 


;calculate map from indices 
; low-order map bits 
shiah-order map bits 

imap setting this page 


ymemory there? 


ido main tests 
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;SMDTS2 - Main memory test subroutine 


OBAA 1076 routine smdts2, arg ri, uses r2-r3, uses r5 
OBAC 48D8 Ida r5,=lmdcon 
repeat 
OBAE 5SO7D 0398 Ida r7,smdcon(-r5) ‘ 
OBB2 307D 4084 sta r7,smdblk(r5) ;init mem test 
OBB6G 88FC until loop 
endrepeat 
OBB8 48D8 Ida r5,=Imdcon 
repeat ; test memory 
OBBA 507D 0398 Ilda r7,smdcon(-r5) 
OBBE 483D 4000 Ida r3,=m0(r5) 
repeat 
OBC2 702B 0084 Ida r2,0/smdbIk(r3) 
OBC6 8003 4f quit } r7 <> n2 ;failing mem:or coupler 
OBC8 4E72 
OBCA 9105 
OBCC 8000 notrap :illopr here to diagnose memory failures 
OBCE 6076 fail return 
OBDO 4FFO 
OBD2 4007 
endif 
OBD4 4A38 2000 add r3,=mi-mo 
OBD8 4F3B COOO tst r3,=-mO0(r3) 
OBDC 8BF3 until minus ;try all maps 
endrepeat 
OBDE 707D 4084 lda r7,smdbik(r5) 
OBE2 8002 if quit } nzero iquit or locking failed? 
OBE4 SAO3 
OBES 8000 notrap ;illopr here to cliagnose memory failures 
OBE8 SOF3 fail return 
endif 
OBEA 88E8 until loop 


endrepeat 
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:selfpointer test 


OBEC 7028 OOA8 Ilda r2,procbt 
OBFO 7058 408C Ilda r5,slfptr 


PAGE 58 


OBF4 8012 ifnot quit 
OBF6 4B58 FEOO and r5,=mapmsk 
OBFA 4E15 fF OL <> 5 
OBFC S910E 
OBFE 3058 FCO2 sta r5,%map1 :to page pointed to 
OCO2 7078 6084 Ilda r7,mi/smdblik 
OCcO6 8009 if nquit & zero :garbage or nonzero ptr? 
ocos 8A08 
OCOA 3028 4084 sta r2,smdblk :write into locked area 
OCOE 7628 6084 if r2 = mi#smdblk :match on other page? 
0Cc12 8103 ; 
oc14 8000 notrap ;illopr- memory really appears twice 
o0c1i6é 9ODC fail return ‘ 
endif 
endif 
endif 
endif 
0C18 3018 408C sta ri,slfptr :fix slfptr 
OciC 48FO lda r7,=0 ;case if quit 
OC1E 7078 AO8E cklock r7,slfik 
O0C22 8005 if nquit & zero ;now busy-wait 
0C24 8A04 
OC26 7078 AO8E lock r7,slfik 
OC2A SAFE 
endif 
Ooc2C 4B78 OOFF and r7,= HFF snow get low-order 
0c30 4C79 0100 jor r7,= H100(r1) sget map plus 100} (its a lock) 


0C34 3078 AO8E unlock r7,siflk sand put 


it back 
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:now check comptr 


OC38 7078 01B8 Ilda r7,newcom ;this com page? 
Oc3C 8S0B if odd ;haven’t got one 
OC3E 3018 01B8 sta ri,newcom ;remember candidate 
OC42 7618 OOAE if r1 <> mapcom zmatch old mapcom? 
oc46 9105 
0C48 3018 OOAE sta ri,mapcom 7Save new one 
oc4c 4078 OD3E call sbad shang in this stage 

endif 
OocsO 4871 lda r7,ri :new mapcom 

endif 
0c52 7018 4090 lda ri,comptr 
OCS6 8017 if nquit & ri < r7 ;this page points lower 
OC58 4E17 
OCS5SA 8215 
OCcSC 7018 O1B6 Ilda ri,smdflg 
OCcC60 8A10 if zero :fixes this pass? 
oc62 3528 4092 eorm r2,comtst ;I want to fix it? 
OC66 8002 if quit 
océ68 S006 
OCGA 3028 4092 sta r2,comtst :fix parity 
OCGE 8000 notrap 
OC70 SOAF fail return 
OC72 9006 else 
0C74 7728 4092 tst r2,comtst 
0C78 SA03 ifnot zero ;can’t yet? 
OC7A 8000 notrap 
OC7C SOAS fail return 
endif 
endif 

OC7E 9003 else 
ocso 8000 notrap 
OC82 SOAG fail return 

endif 

endif 

0c84 3078 4090 sta r7,comptr ;rewrite comptr 
OC88 48FO Ida r7,=0 :don’t use map3} (parity) 
OC8A 3078 4092 sta r7.comtst ;Clear comptr fix cntrs 


OC8E 6006 endroutine smdts2 
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.comnt | 
Stage RK - Find and Checksum Common Reliability Kernel 


Find the common memory kernel of STAGE, which ought to have a 
good checksum and reside on the comrel page. If the one 

there isn’t a kernel, or has bad checksum, look for another 
copy through memory. When we succeed, we can execute the rest 
of the STAGE kernel code from common. Tries to find a whole 
good rely page, but settles for just a kernel if necessary. 
Low order bits of comre! are state of rely page: O=okay, 
1=please reload 


srk0OO: ;Checksum Rely Kernel. 
repeat ;Fix broken comrel. 

repeat ;Find RK, propose comrel 
OCSO 4878 FFFF Ilda r7,=-1 
OCS4 3078 OBA sta r7,srkker ;Found no kernel yet. 
Oc98 4078 O7DC call wsleep yrest a while 
ocsc 7018 40B0 Ilda ri,comrel ;start looking here. 
OCAO 803B until quit ;Comrel broken; fix. 
OCA2 4B18 7EOO and r1,=nmseg* D&8* H200- H200 
OCAG6 3018 O1BC sta ri.srkrel ; local copy. 

Repeat 
OCAA 4078 OE8A call memtst :memory in ri in memseg? 
OCAE 9A1D if succeed 
OCBO 7078 60C4 lda r7,mi#/rkepas :Broken page or kernel? 
OCB4 801A ifnot quit ) r7 <> =stapas ;:Page look right? 
OCBG6 4E78 OACE 
OCBA 8117 
OCBC 4078 OEF10 call cksub,mi¢rkerck,m2 ;Checksum kernel 
occo 60CO 
occ2 8000 
occ4 7078 O1BA lda r7,srkker ;need a good rely page? 
occs 8910 if odd & equal ;need one and found .one. 
OCCA 810F 
occc 4078 OE10 call cksub,m1#cksum,m2 ;checksum page thru m1. 
OCDO 6OB6 
OCD2 8000 
OocD4 8104 if Equal 
OCD6 3018 O1BA sta ri,srkker :;total page good 
OCDA 9007 else 
ocpc 4c91 ior ri,=1 
OCDE 7078 O1BA Ida r7.srkker 
OCE2 8B03 if minus 
OCE4 3018 O1BA sta ri,srkker 
endif 
endif 
endif 
endif ;Page looks right. 


endif ;memory in memseg. 
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OCE8 
OCEC 
OCFO 
OCF4 


OCF6 
OCFA 


OCFC 
ODOO 
odDOo2 
ODO4 
oDO8 
ODOA 
ODOE 
0OD12 


0D 14 


0D16 
OD1A 


OD1C 


0D20 


4A18 
4B18 
7618 
81DB 


7018 
SBOE 


7078 
4E17 
8104 
4078 
9006 
4B78 
7678 
9102 


SOBE 


4078 
8103 


3018 


SOB8 


0200 
7EOO 
O1BC 
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add r1,= H200 ;select next page. 
and ri,=nmseg* H8* H200- H200 
until ri = srkrel 

endrepeat 


lda ri,srkker suntil kernel not found. 
until minus 


lda r7,comrel 


if -P1 | #7 ;we agree with system. 
call sclrok ;Enable next stage. 
else 
and r7,=nmseg* D8* H200- H200 
break if r7 = srkrel ;restart calc. if smm did something 
endif 
endrepeat 
call sfxbad ;vote to fix comrel. 
if equal ;we can fix. 
> Trap 11,<;adj comrel (If cont. RELD IMP) (H/S) ° - page 61> 
sta ri,comrel 7r1 is proposed comrel. 
endif 


endrepeat 
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.comnt | 
Stage Advancing, Hanging, and Fixing Subroutines 


sclrok - Do sclear + sokay 

sfxbad - Do sbad + sfixit 

sbad - Hang us in present stage; disable all later stages. 
sokay - Proceed; reinit next stage if it’s just starting. 
sclear - Clear our bit out of current fixit word. 


sfixit - Try to fix, return equal if we can fix. 


OD22 1076 routine sclrok,uses r4 
0D24 4078 ODSO call sclear 
0D28 4078 OD50 call sokay 


OD2C 6006 endroutine sclrok 

OD2E 1076 routine sfxbad,local r4 

OD30 1046 

O0D32 4078 ODSE call sbad 

OD36 4078 ODAC call sfixit 

OD3A 6046 endroutine sfxbad 

OD3C 6006 

OD3E 1076 routine sbad,uses r4 

OD40 7048 0188 lda r4,wstage ; present stage 
0D44 48FO lda r7,=0 

OD46 717C OEB8 sub r7,bittab+2(r4) ; bits for all succeeding stages 
OD4A 3478 018C iorm r7,wdis : disable them 


OD4E 6006 endroutine sbad 


pluribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 63 
STAGEK.PLR; 1 PAGE 48 . 
ODS5O 1076 routine sokay,local r3.uses r4 
OD52 1036 
OD54 7048 0188 Ilda r4,wstage ; present stage 
ODS8 703C OEB8 Ida r3,bittabt2(r4) ; bit for next stage 
ODSC 7738 018C if r3 .bit. wdis ; next stage not ruing 
OD6O SA16 
OD62 7538 018C eor r3,wdis ; let it run 
OD66 7438 O3OE ior r3,offdis ; keep debugging bits on 
ODGA 3038 018C sta r3,wdis 
ODGE 4F38 0400 if r3 .bit. =totstb ; later stage to start up. 
0D72 SAOD 
0D74 703C O35C lda r3,wspint(r4) ;initial stack pointer. 
0D78 7O7C 0352 Ilda r7,wpcint(r4a) :initial program counter. | 
OD7C 4ECA if r4 >= =nlocst ;from common if common stage. 
OD7E 9203 
OD80 707C 500C Ilda r7,cwpcin-niocst(r4) 
endif 
oD84 1073 sta r7,(-r3) ;push program counter. 
OD86 49BA sub r3,=%reg5-%regoO jadjust sp for wsleep return. 
0088 303C 0180 sta r3,wslsp+twords(r4) ;Save new sp for wsleep return. 
endif 
endif 
OD8C 6036 endroutine sokay 
ODBE 6006 
OoDsO 1076 routine sclear,uses r4 
OD92 7048 0188 Ilda r4,wstage + present stage 
ODS6 7OFC OS3GE Ida r7,@contab(14) ; its consensus 
ODSA 7578 OOA8 eor r7,procbt ; take me out. 
ODSE 33FC 0384 andm r7,@fixtab(r4) ; dead procs and mé out. 
ODA2 8002 if quit 
ODA4 9003 e 
ODAG SOFC 0384 sta r7,@fixtab(r4) ; fix parity quit 
endif 
ODAA 6006 endroutine sclear 
ODAC 1076 routine sfixit,uses r4 
ODAE 7048 0188 lda r4,wstage ; present stage 
ODB2 7078 OOA8& Ida r7,procbt ; just me if quit 
ODB6 74FC 0384 ior r7,@fixtab(r4) ; set that wants to fix 
ODBA 8001 ifnot quit ; ignore parity quit here. 
endif 
ODBC 73FC O3GE and r7,@contab(r4) : only live voters 
ODCO 76FC O3GE if r7 <> @contab(r4) ; disagreement 
opc4 9103 
ODC6 3OFC 0384 sta r7,@fixtab(r4) ; live voters into fixit 
endif 
ODCA 6006 endroutine sfixit a 


pluribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 64 
STAGEK.PLR; 1 


.comnt | 
fndclk - 


Accepts, 
not use; 


ODCC 


ODCE 
ODD2 


opD4 
opps 
ODDA 
ODDE 
ODE2 
ODE4 
ODE6 
ODES 
_ ODEA 

ODEE 
ODFO 
ODF2 
ODF4 
ODF8 
ODFA 
ODFE 
OEO2 


OEOG6 


OEOB 


OEOA 
OEOC 
OEOE 


1076 


7078 
48D4 


577D 
8A18 
704D 
483C 
4E31 
9112 
7044 
8010 
4F48 
8A0D 
7043 
800B 
7638 
9107 
3038 
4A48 
3048 


6006 


88E6 


6076 
4FFO 
4007 


th Ps 
returns, in r3, the address of the found clock. 


PAGE 49 


routine to find a local clock. 


the address of a clock which it should 


routine fndclk,arg ri,uses r3-r5,result r3 


lda r7,buskil ; buses not to use. 

Ilda r5,*bsadil length of bus table. 

repeat look at next bus 
ifnot r7 .bit. bittab(-r5) bus enabled 


ae ee we 


Ida r4,bsadrs(r5) ; bus base address 
Ida r3,=rtcadd(r4) ; where clock lives 
if r3 <> ri ; not same clock as last time. 
Ilda r4,(r4) > must be a PID here. 
ifnot quit } r4 .bit. = HFFOO 
lda r4,(r3) : RTC here, too? 
ifnot quit ; Yes 
if r3 <> Iclock 
sta r3.1lclock :new local clock 
add r4,=stgrat ;correct local time. 
sta r4,1ltime 
endif 
return 
endif 
endif 
endif 
endif 
until loop : no more buses 
endrepeat 
fail return : couldn’t find clock. 


endroutine fndelk 
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.comnt | 
cksub - Checksum a piece of memory. 


Call with ri set to common memory page address, if any. 

Takes two inline arguments: the first is brought to r5 and 

is a pointer to the checksum header; the second goes to 

r4 and is the maximum upper limit value. The checksum 
header is a two-word block at the beginning of the area to he 
checksummed holding the checksum in the first word and the 
upper limit of the area in the second. 


The routine returns equal/not equal; equal implies the 

checksum is correct, while not equal can indicate any of a number 
of failures. If "equal" is returned, r2 is the address of the 
first word past the checksummed region. 


routine cksub. arg ri, inline rS, inline r4, result r2, 


uses r3-rs 
OE10 6057 
OE12 6047 
OE14 1076 
OE16 4078 O7DC call wsleep ;prevent loops in stages calling us. 
OE1A 3018 FCO2 sta r1,%map1 :get the page again 
OE1E 0201 rst he yalways return unequal 
OE20 7035 Ida r3,(r5) ;current checksum value. 
OE22 8032 ifnot quit :no problem getting cksum. 
OE24 707D 0002 lda r7,2(r5) ;cksum upper limit. 
OE28 802F ifnot quit ; this one ok, too. 
OE2A 992D ifnot odd :must be even; odd is garbage. 
OE2C 4947 sub r4.r7 ;limit must be less than max! limit. 
OE2E 9B2B ifnot minus 
OE30 4975 sub r7,r5 ;and not less than lower limit. 
OE32 9B29 ifnot minus 
OE3S4 4843 Ida r4,r3 ;initial cumulative cksum. 


OE36 4825 Ida r2.r5 :first address to cksum. 
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;now, do real checksumming. 
repeat ; until some return happens 
OE38 4078 O7DC call wsleep : first, catch up ‘on sleep 
OE3C 3018 FCO2 sta ri,%mapi ; then, restore map! for work. 
OE4O 4872 Ida r7.r2 ; next word address. 
OE42 717D 0002 sub r7,2(r5) ; cksum limit. 
OE46 8B10 if minus ; more work to do 
OE48 4E78 FFCO if r7 <= =- H40 
OE4C 3SCO3 
OE4E 4878 FFCO jda r7,=- H40 ; never do more than 40 
endif 
repeat ; checksum a piece 

OES2 6142 sub r4,(r2)+ ; checksum a word 
OE54 8004 ifmot quit . 
OESG 4AF2 add r7,=words ; count a word as done. 
OE58 8AFD next ifnot zero 
OE5A 9005 break 

endif é 
OESC EOOD Trap 15,.<:Quit during cksuming (H) - page 66> 
OESE 0201 rst %e ; Return unequal (cksum bad) 
OE6O 6006 return ; and done 
OE62 SOF8 endrepeat 
OE64 SOOF else ; no more work to do 
OE6G 7635 if r3 = (r5) ; no-one has touched checksum. 
OEG8 810A ° 
OE6GA 7645 if r4 = (r5) ; checksum right 
OEGC 8102 
OEGE SOF9 return 

endif 
OE7O 4E38 FEED if r3 <> =ckpass ; password 
OE74 9102 
OE76 SOFS return swrong; tell caller. 

endif 
OE78 3045 sta r4,(r5) ; store new checksum 
OE7A 9003 else ; checksum changed 
OE7C 7035 Ida r3,(r5) ; start calculation over. 
OE7E 4843 Ida r4,r3 

@ endif 
OE80 4825 Ida r2,r5 ; Restart checksumming 
endif 
OE82 SODB endrepeat not done, do another piece. 
endif 
endif 
endif 
OE84 SOEE return : cksum header broken. 
endif 
endif 

OE86 EOOC Trap 14,<;Quit in cksum param (H) - page 66> 
OE88 SOEC endroutine cksub 
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.comnt 

MEMTST - check if memory in memseg 

Sets %mapi to desired map if page exists. 

Accepts memory address in ri, map2 must point to communication page. 


OE8A 1076 routine memtst,arg ri,local r2,result mi 
OE8C 1026 
OE8E 4821 lda r2,r1 
OESO AGA8 srl r2, D8 
OE92 4828 OO1E and r2,= HIE 716 bits per segment 
OE9S6 4871 Ilda r7,ri 
OE98 ASF4 RU) WTA 
OESA 4BF6 and r7,=nmseg-words ;segment index 
OESC 7O7F 80S9E Ilda r7,m2/memseg(r7) 
OEAO 777A OEBS ifnot r7 .bit. bittab(r2) 
OEA4 8A05 
OEA6 6026 fail return 
OEA8 6076 
OEAA 4FFO 
OEAC 4007 
endif 
OEAE 3018 FCO2 sta ri,%mapt 
OEB2 6026 endroutine meintst 
OEB4 6006 


;Table to translate an index to a bit 


0010 bittab: .rept D16 
i_.rpent 
OEB6 0001 .endr 
OEB8 0002 
OEBA 0004 
OEBC 0008 
OEBE 0010 
OECO 0020 
OEC2 0040 
OEC4 0080 
OEC6G 0100 
OEC8 0200 
OECA 0400 
OECC 0800 
OECE 1000 
OEDO 2000 
OED2 4000 
OED4 8000 
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*#kk< STAGE SYSTEM -- RELIABILITY CODE >*** 
FCOO 0000 PAGE Relcode 
40CO - =pagebc 


pttrete* peliability page tables t***tt* 


40CO rkerck: .blkw 1 ;rely kernel checksum 

40C2 7016 rkelim: mifrkeren ;Rely kernel limit: checksum 
40C4 OACE rkepas: stgpas ;mark to say rely kernel is here 
40C6 0000 prokil: O ;precessors not to start 

40C8 0000 prohng: O ;procs to hang at stage ID 


yamputation control words 
;offset defs: 


0000 amemio=O ;memory or i/o bus (1 bit/bus) 
0002 aproc=2 yan individual processor 
0004 abus=4 ;a processor bus (2 bits/bus) 


stables for manual,system, and random amputation: 
;must be contigious 


40CA 0000 ampman: O 

40CC 0000 prohlit:0 ;procs to halt and not start 

40CE 0000 proamp:0O ;proc buses to amputate (proc halts too) 
40D0 0000 ampsys: 0,0,0 

40D2 0000 

40D4 0000 

4006 0000 amptry: 0,0,0 

40D8 0000 

40DA 0000 


;Tables for initial checksum limits 
40Dc 4000 ihotim: locend ;local memory limit 


40DE 7D50 limtab: mmlims ;assemble common page limits 
40EO FFFF 
40E2 FFFF 
40E4 FFFF 
40E6 FFFF 
40E8 FFFF 
40EA FFFF 
40EC FFFF 


Block transfer tables for checksum limits 
must be even and positive 


40EE O2FE Icktab: kerlim,hotlim,O ;local limits 
40FO O2FA 
40F2 Q000 
40F4 60C2 rektab: mi#rkelim srely limits 


ANFR GORR ecktah: mifdtlimit.o :everv paade limits 
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40FA 
40FC 
40FE 
4100 


4102 
4104 
4106 
4108 


410A 


410C 
410E 


4110 
4112 


4114 


4116 
4118 
411A 
411C 


411E 
4120 
4122 
4124 


0001 
0001 
0000 
4000 


0000 


0008 


E100 
E200 
F100 
F200 
0008 
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;following table is parallel to bsadrs. Used by stage 
;BD to maintain amputation of processors 


bsmaps: bsmptb ;table of what to put in maps (io) 


bsmapm: bsmptm ;ditto for memories 


;Tables to drive Stage MM 


;Table of page category offsets 


smmbas: O ;code pages 

ncodep: .blkw 1 ;spare pages (set later) 

nsparp: .blkw 1 ;required, desired vars 

nvarsp: .blkw 1 ;optional vars 

Immbas=.-smmbas ;list of offsets to check im SMMCHECK 
novarp: .blkw 1 ;offset of last page to allocate + 1 


:Parallel table (to SMMBAS) of minimum required 


smmins: 

ncodem: .blkw 1 :code pages (set later) 

nsparm: .blkw 14 ;spare pages . 
nrequp: ;Total minimum page number to run system 
nvarsm: .bIkw 1 ;required vars 

noptvm: .blkw 1 ;optional vars 


;Other parameters 
ndvars: .blkw 1 ;How many variables pages to allocate before spares 


sbase addresses of io segments. each covers 100} bytes, 
: for 16 (dec.) devices at 10) bytes per 


iobase: iobtab ;assemble io segment base address table 


nsegs=.-iobase ;how much stage 6 finds 


;tables to cause amputation of individual devices 
sone bit causes system to iaqnore the device 

seach word controls 16 devices, starting with the 
;corresponding address in iobase (bit O = 1}) up to 
;device at address+FO} (bit 15 = 8000}) 


jokill: .rept nmsegs/2 
fe) 
.endr 


Nefnane RKPatch man code ora |_.limit<.tRKPlen>.phvsical rellod 
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5D50 


5D54 
5D56 
5D58 
SDS5A 


SD5C 
5D60 
5D62 
5064 
5D66 
5DG6A 


SD7A 
SD8A 


SD9A 
SDAA 


0010 


0010 
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; consensus communication variables 
; look thru map O 


PAGE Relvars 
comar: ;beginning of communication area . 


;vars for stage BD 

buscon: .blkw 1 ;bus discovery consensus 

locdef ,.<:Common Bus Discovery Consensus - page 70> 
-blkw 1 

stgtim: .blkw 1 ;how current are stage vars 

busfix: .blkw 1! ;procs who’d fix usebus 

usebus: .blkw 1 ;common buses that exist 


. 


;vars for stage CD 

coucon: .blkw 1 

locdef ,<;processor and bus coupler discovery consensus - page 70> 
-blkw 1 

coufix: .blkw 1 ;fixit for processor discovery 

procex: .bIkw 1 ;processors that exist to BD 

proior: .blkw 1 

locdef bbclok,.<;lock on bus coupler states - page 70>° 


coutab: .bilkb nproc ;table of processor coupler addresses 
coutbl=.-coutab ;its length, *'must be power-of 2** 
coubus: .blkb coutb! 

ioctab: .blkw H8 :max 8 other couplers 


jioctbl=.-ioctab 
amproc: .blkw H8 
ampcom: .blkw H8 
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.comnt | 
Block transfer control variables 


locdef bitlok,<;Block transfer lock - page 71> 


SDBC bitst: -blkw 1 ; transfer state 
0001 bitact=1 ;active 
0002 bitful=2 ;buffer full 
0004 bliteto=4 ;b1lt timeout error 
0008 bltcck= H8 :fix dest checksum for me or common 
0010 bitedq= H10 ;dest quit 
0020 bitedk= H20 ;non-existant dest 
0040 bltedf= H40 ;dest format error 
0080 bltsdf= H80 ;check spare (if any) for differences 
0300 bitctl=<pcrun}pchalt>_ H8 ;bits to ctrl reg 
0400 bitrun= H400 ;Start proc in stage 
0800 blitspa= H800 ;use spare page if any 
1000 bitesq=bltedq_ H8 ;source quit 
2000 bitesk=bltedk_ H8 ;no source 
4000 bitesf=bltedf_ H8 ;source bad format 
7074 bl ters=b1teto)b1tedq}b!1 tedk}bltedf}bl tesq}bltesk}bltesf 
3;a11 possible errors in BLTST 
S5DOBE bitto: »bilkw 1 ;b1t timeout 
5DCO bitadd: .blkw 1 ;current transfer address 
8000 bltlog=sign 3a logical page of common (if odd) 
0001 bitnic=1 ;Mnot local memory if set (ie common) 
5DC2 bitsiz: .blkw 1 ;transfer size in bytes 
5DCc4 bitdon: .bikw 1 ;how much in this strip 
5DC6 bitbfm: .blkw 1 ;blt buffer map 
5DC8 bltbfa: .blkw 1 and address 
S5DCA bltpro: .blkw 1 ;proc who did BLT 
SDCC bitbmk: .blkw 1 ;mask of procs who failed BLT 
SDCE bitdid: .blkw 1 ;which proc we looked into 
5DDO bitpok;: .blkw 1 ;PID to poke back 
S5DD2 bbecrst: .blkw 1 ;coupler address of last BBC started 
5DD4 bbcbad: .bikw 1 ;coupler address of last BBC failure 
S5DD6 bitsty: .blkw 1 ;source type 
2000 bitddt= H2000 ;bit if DDT partaking 
4000 bitfak= H4000 ;bit if fake process partaking 
8000 bitfex= H8000 ;bit if external reload (bl trid) 
5DD8 bitspm: .blkw 1 ; and proc mask 
S5DDA bitdty: .blkw 1 ;dest type, 
5DDC bitdpm: .blkw 1 ; and current mask 
SDDE bitdpi: .blkw 1 ;initial dest mask 
5DEO bitbuf: .blkw D36 ;place for core transfer 
5E28 rekcon: .blkw 1! ;Rely checksum consensus (RC) 


locdef .<;Consensus for Rely page Checksum - page 71> 
5E2C -blkw 1 ; 
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SE2E 


5E32 
5E34 


5E36 
SE3A 
5E3C 


SESE 
5E40 


SESO 
SES4 


5E96 
5E98 


SEAO 


5EA2 
SEA4 


SEA8 


SEAA 


0008 


0100 
FFOO 
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loccon: .blkw 1 ;local checksum consensus (LC) 

locdef ,<;Consensus for Local Checksum = page 72> 
-blkw 1 

locfix: .blkw 1 ;fixit for local checksum reload 


memcon: .bIlkw 1 ;stage MM consensus 
locdef ,<;memory configuration consensus - page 72> 


-blkw 1 
memfix: .blkw 1 ;procs who would fix cmap 
bufflg: .bikw 1 ;flag to not allocate mem 0 buffers or vars 
cmap: .b1kb %novarp ;common table of maps (configuration) 


;vars for stage ID - i/o discovery 


jocon: -blkw 1 
locdef ,<;consensus for i/o discovery - page 72> 
-bikw 4 
iofix: -blkw 1 ;fixit word for io discovery 
useio: .blkb nsegs 716 devices per word, parallels iobase 


useiol=.-useio ;length of device table 


seginc= D16*devinc 716 devices per seaqment 
segmsk=<seqinc-1>?-1 :bits that determine segment 


prtime: .blkw 1 ;time some stage AR will next start procs 
inifix: .blkw 1 ;fixit word for page initialization (stage AR) 
inicon: .blkw 1 ;consensus for initialization stage 
locdef ,<;initialization consensus lock ~- page 72> 

.blkw 4 
;vars really for stage (system) 


sytim2: .blkw 1 ; high-order bits of system time. 
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:*+#* Reliability page code **+t* 
FCOO OOOO Page Relcode 


.comnt | 
Stage BD - Discover Common Buses 


First, make sure stage variables in common are current, and 
reinitialize if not. 

A memory bus exists if its lowest-numbered memory is in the system 
(for the purposes of amputation only). An I/O bus exists if its 
PID exists. To prevent the discovery of a bus, set its bit 

in the manual amputation table (AMPMAN), at offset O (AMEMIO). 
This word is copied to BUSKIL by this stage. for use by the 

rest of the system, Output of this stage is BUSUSE, 

which is used by BBC-related activities and I/O discovery. 

To remove a memory bus completely. use MEMKIL (stage 1). 


4166 BDG68 ilockt: bbclok ;BBC lock 
4168 BDBA bitlok ; and lock on block transfer 
0004 llockt=.-ilockt 
sbdoo: 
repeat ; forever 
repeat ; until variables quit or timeout 
416A 4078 4254 call sbdqch ;check all stage variables for quit. 
416E 9A56 until fail ;some variable quit. 
4170 7078 SD56 Ilda r7,stgtim ;variables watchdog timer. 
4174 7178 OOAO sub r7,stime ;is watchdog still on? 
4178 4F78 FOOO until r7 .bit. = HFOOO ;watchdog goes off. 
417C 8A4F r 
417E 4078 429C call sbdtim ;keep stage vars time 
4182 7078 40CA Ilda r7,ampmantamemio ;build buskil word 
4186 7478 40D0 ior r7,ampsystamemio 
418A 7478 40D6 ior r7,amptry+amemio 
418E 7178 0328 sub r7,buskil ;Update buskil word in local. 
4192 3178 O2FC subm r7,1lkerck ;keeping checksum good. 
4196 3278 0328 addm r7,buskil , 
419A 7048 0328 Ilda r4,buskil ;used in loop below 
419E 48D0 lda r5,=0 ;build a tentative usebus. 
41A0 48B0 Ilda r3,=0 ; index into pidget. 


41A2 4898 Ida r1,=bsadil+bsadm1 ;number of busses to explore. 
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repeat ;for each possible bus. 
41A4 5749 OEBG ifnot r4 .bit. bittab(-r1) ;bus not killed. 
41A8 BA1F 
41AA 7029 40FA Ida r2.bsmaps(ri1) show to map to bus. 
41AE 8916 if odd ;10 bus 
41BO 7029 0320 Ida r2,bsadrs(ri) ;where in address space bus lives. 
41B4 707A 0000 Ida r7.pidsto(r2) ;look for pid 
41B8 8010 ifnot quit }) r7 .bit. = HFFOO ;PID exists. 
41BA 4F78 FFOO 
41iBE 8AOD : 
41CO 3028 OOAC sta r2,pid rsoftware pid (okay ‘cause no sleep) 
41C4 4AA2 add r2,=pidrel ;setup PIDGET as we find PIDs. 
41C6 202B 0174 sta r2,pidget(r3)+ 
41CA 707A 0004 Ida r7.rtcadd-pidrel(r2) ;if RTC tell usebus. 
41CE 8003 ifnot quit ;RTC there. 
41D0 7459 OEC6 ior r5,bittab+< H8*words>(r1) :set RTC bit in USEBUS 
endif 
41D4 7459 OEBG ior r5,bittab(r1) ;set bus bit in USEBUS. 
endif 
41D8 9007 else ;memory bus. 
41DA A3SA4 rll r2.4 
41DC 7O7A 80S9E Ida r7,m24memseg(r2) 
41EO 8903 if odd ; low memory on bus exists. 
41E2 7459 OEBG ior r5,bittab(ri) ;include bus in picture. 
endif 
endif 
endif 
41E6 4E90 until ri = =O : no more busses to do. 
41E8 81DE 
endrepeat 
41EA 4EBO if r3 = =O ino pids found. 
41EC 8103 Ps 
: Trap 10,<;No PIDs CALL *** BBN MAINT. *t+* (H) - page 74> 
41EE 4048 OAIC jsb r4,wst ;restart system. 
endif : 
41F2 4878 0312 Ilda r7,=pid3 ;setup rest of pidget. 
repeat 
41F6 207B 0174 sta r7,pidget(r3)+ 
41FA 4EBA until r3 >s =spidtot 
41FC 92FD 
endrepeat 
41FE 7658 SDSA if rS = usebus jwe agree with system’s picture. 
4202 8104 
4204 4078 OD22 call sclrok sallow later stages. 
4208 9006 else 
420A 4078 OD2E call sfxbad ;vote to Fix usebus. 
420E 8103 if equal ywe may fix usebus. 
4210 3058 5DSA sta r5.usebus :fix it with our picture. 
endif 
endif 
4214 4078 O7DC call wsleep :rest a while 


A9?1R ANAG endreneat 
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421A 4078 OD2E 


421E 


811A 


4220 4078 427A 


4224 


8A08 


t some quit or 
page 75 


4228 
422C 
4230 


4234 
4238 
423A 
423E 
4240 
4244 


4248 
424¢ 


424E 


4252 


7018 
4078 
4048 


7018 
48A4 
109A 
88FE 
4828 
503A 


301B 
88FC 


4078 


908C 


429C 
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call sfxbad ;vote to fix 
if equal ;okay to fix. 
call sbdeclIr ;clear common area 
if fail ;we got some quit or other here. 
Trap 44,<;Stge vars mem fail *** CALL BBN MAINT. *** (H) -4226 EQ24 if fail 
other here. 
Ida ri,maprel ;disable this common page. 
call memdis 
jsb r4,wst jand restart all stages 
endif 
lda ri,procbt ;good init is my bit 
Ida r2,=llockt yaux lock table 
repeat 
sta r1,@ilockt(-r2) yunlock a lock 
until loop 
endrepeat 
lda r2,=1coml ;how many consen locks 
repeat 
Ilda r3,concom(-r2) : 
sta ri,bitsnk(r3) ; into bitsnk if no consensus 
until loop 
endrepeat 
: Trap 22,<:Stge Common Reint (IMP RSTRTED) - page 75> 
call sbdtim snow fix time 
endif 


endrepeat 
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.comnt | 
sbdqch - check 


4254 1076 
4256 48A0 


4258 601A 5D50 
425C 8002 
425E 9005 


4260 E010 
4262 6076 
4264 4FFO 
4266 4007 
4268 4F28 OOSF 
426C 8A03 
426E 4078 O7DC 


4272 4E28 O2AE 
4276 81F1 


4278 6006 


PAGE 61 
stage common variables for quit; fail return if quit. 


routine sbdqch,uses ri-r2 
Ida r2,=0 
repeat 
lda ri,comar(r2)+ 
if quit 


Trap 20,<;Stge vars area quit--12 TRAP means fix (H) - page 76> 
fail return 

endif 

ifnot r2 .bit. = H3F 
call wsleep 

endif 


until r2 = =lcomar 


endrepeat 
endroutine sbdqch 
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.comnt | 
sbdcir - clear stage common variables; be careful with quits. 


427A 
427C 
427E 


4282 
4286 
4288 
428C 
428E 
4290 
4292 


4294 
4296 
4298 
429A 


1076 
4890 
4828 O2AE 


101A 5D50 
8008 
701A SD50 
8005 
8A04 
8802 
6006 


SOF7 
6076 
4FFO 
4007 


.comnt | 
SBDTIM - maintain the stage variables timer STGTIM. 


429C 
429E 
42A2 
42A6 


42AA 


1076 

7078 OOAO 
4A78 0258 
3078 5D56 


6006 


.comnt | 
memdis - locally remove page in ri from this processor. 


42AC 
42AE 
42B0 
42B2 
42B6 
42B8 
42BC 
42C0 
- 4204 


1076 
A698 
4821 
4B28 OO1E 
AG94 
703A OEBG6 
3239 O32A 
3138 O2FC 
6006 
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routine sbdclr,uses ri-r2 


Ilda r1,=0 
lda r2,=lcomar 
repeat 


sta ri,comar(-r2) 
until quit 

lda ri,comar(r2) 
until quit } nzero 


if loop 
return 
endif 
endrepeat 
fail return 


endroutine sbdclIr 


routine sbdtim 


Ilda r7,stime 
add r7,=inirat 
sta r7.stgtim 


endroutine sbdtim 


routine memdis,arg ri,uses r2-r3 
srl ri, 48 
Ilda r2,ri1 
and r2,= WIE 
scl r4.4 
Ilda r3,bittab(r2) 
addm r3,memkil(rt) 
subm r3, lkerck 
endroutine memdis 


11:20:52 PAGE 77 


; Clear a word. 


;keep watchdog fed and awake, 
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PAGE G3 
:Stage CD - Coupler Discovery 


;First, set up the amputation control 
rand AMPCOM. Then proceed to discover 


;system, building an answer in COUTAB, 


7;Finally, check processors discovered 


words PROIOR, AMPROC, 
the couplers in the 
COUBUS. and IOCTAB. 
against PROCEX. 


scdoo: 
repeat ; forever 

42C6 48B0 Ilda r3,=0 
42C8 48CO lda r4,=0 
42CA 48D0 Ilda r5,=0 
42CC 4878 0012 Ilda r7,=3*3"words 7scan 3 3-word tables 

repeat ;until thru tables or trouble 
42D0 S45F 40CA ior r5,ampman(-r7) ;;abus proamp ;proc busses to amputate 
42D4 544F 40CA ior r4,ampman(-r7) ;;aproc prohlit j;procs to halt and not run 
42D8 543F 40CA ior r3,ampman(-r7) ;;amemio ;io busses to amputate 
42DC 88FA until loop 

endrepeat . 
42DE 4c45 ior r4,r5 ;these procs should halt 
42EO 3048 5D66 sta r4,proior ;ancd not be in system 
42E4 7748 OOA8 if r4 .bit. procbt :1 should halt 
42E8 9A02 
42EA Q000 hit 

endif . 
42EC 4893 Ilda ri,=3 ;procs by pair 
42EE 48A1 lda r2,=1 ;io busses singly 

i;;1lda r7,=0 

repeat ;set up amputate tables 
42FO 4848 DE79 lda r4,=bbcpas :bare password 
42F4 4F15 1{fnet ri . ott. 75 :not amputated 
42F6 8A02 
42F8 4CC2 jor r4,=bbcfor 

endif 
42FA 304F SDSA sta r4,amproc(r7) :set proc amp table 
42FE 4848 DE79 Ilda r4,=bbcpas ;just password again 
4302 4F23 ifnot r2 .bit. r3 :allow io bus access 
4304 8A02 
4306 4CC2 ior r4,=bbcfor 
endif 

4308 204F SDAA sta r4,ampcom(r7)+ :set io amp table 
430C A2A14 sit 72.4 :next io coupler 
430E A392 OUT KAS2 ;next proc pair 
4310 89FO until ode ;clone 8 of each bus 

endrepeat ‘ 
4312 4078 O70C call wsleep :time to rest 
4316 7078 4096 Ilda r7,segcon ; these procs are running 
431A 3078 O1CO sta r7,procd ;SO assume they exist 
431E 4890 lda r1,=0 ;current COUTAB index 
4320 4828 0010 Ilda r2,=couptIr :first coupler to find 
4324 48BO Ida r3,=0 ;IOCTAB index 
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4326 
432A 
432C 
4330 
4334 
4338 
433A 


433E 
4340 
4342 
4344 
4346 
4348 
434A 
434C 
4350 
4354 
4356 
435A 
435C 
4360 
4362 
4366 


436A 
436C 
436E 
4370 
4374 
4378 
437A 
437E 
4380 


4384 
4388 
438C 
4390 
4394 


4396 
4398 
439A 
439E 
43A0 
43A4 
43A6 


A3AA 
43AC 
43AE 


4E28 
8208 
4078 
4078 
7058 
9003 
4858 


SA36 
4FD3 
9A15 


0080 
43B0 
o7DC 
O1BE 


FFFF 


0001 
5DG6A 


5D78 
OD2E 


5D68 
5D78 


01ico 
5064 


ODAC 
5D64 
OD22 
OOAA 


5D6A 
OOAG 


SD8A 
OD2E 


5D88 


PAGE 64 
repeat 

if r2 < =bbewin : looking for legit coupler 
call scdtst ;find I/O and mem ends of couplers 
call wsleep 
Jda r5,scecbus ;which busses this coupler on? 

else ;just filling tables 
Ida rS5,=-1 : 

endif 

ifnot zero i:there are, some 


if rS .bit. =<1_<bsadil/words>>-1 & ri <= =coutbI-2 


lda r4,r2 > found a proc 
sll r4, H8 
ior r4,=i(r2) ;build name pair 


if r4 <> coutab(ri)+ } rS <> coubus-words(r1) 


call sfxbad 7;some table is wrong 
break ifnot equal ;await consensus 
sta r4,coutab-words(r1) ywe'll fix 
sta r5,coubus-words(r1) 

endif 

else : 

if r3 > =ioctbl-words ;IOCTAB is full 
Ida ri,procd ;procs we found 
if ri <> procex ;mismatch sysem 


call sfixit 


break ifnot equal scan’t F 12 
sta r1.procex :do the Fix 
endif 
call sclrok snow we’re happy 
lda r1,procno ;now look up my name 
ldab r7,coutab(r1) 
sta r7,myproc ;and set it up 
break 
endif 
s11 rS. H8 ;busses to left half 
TOF PS h2 ;remember the coupler 
if r5 <> ioctab(r3)+ ;good io coupler? 
call sfxbad 
break ifnmot equal ;can’t fix it 
sta r5, ioctab-words(r3) 
endif 
endif 
endif . 
add r2,=words ;to next coupler 
endrepeat 


endrepeat 
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;Stage CD Subroutines 


;SCDTST 


PAGE 80 


;Check the current coupler on each bus. R2 is the coupler offset, 


:R1 is the current index into COUTAB, R3 is IOCTAB index. 


;Builds in SCDBUS the picture of which busses this coupler is 
sconnected to, and in PROCD the picture of which processors exist. 


43BO 1076 routine scdtst, arg <ri-r3>, uses <r4-r5>, uses m2 
43B2 1036 save r3 znot needed for a while 
43B4 48B0 Ilda r3,=0 
43B6 3038 O1BE sta r3,scdbus ; initially no busses 
43BA 48B4 lda r3,=bsadil ;for each I/O bus 
repeat 
43BC 4EBO until r3 = =0 
43BE 911A 
43CO 504B OEBG lda r4,bittab(-r3) ;bit for this bus 
43C4 7748 SDSA next ifnot r4 .bit. usebus ;bus exists 
43C8 SAFA 
43CA 4078 O7DC call wsleep ;now rest 
43CE 7O05B 0320 Ida r5,bsadrs(r3) :bus offset 
43D2 4A52 add r5,r2 :get to right coupler 
43D4 7075 lda r7.(r5) ;coupler here? 
43D6 8006 ifnot quit 
4308 3448 O1BE jiorm r4,scdbus ryes, note it. 
43DC 4078 4458 call scdbbc ;check BBC, procs 
43EO SAEE next if fail :got our coupler 
endif 
43E2 7078 OOAG Ida r7,myproc :my name ° 
43E6 4B78 OO7E and r7,=bbcwin-words :without odd bit 
43EA 4E72 if r7 = r2 : looking for me} 
43EC 8102 
Trap 37,<;:Broken Coupler *** CALL BBN MAINT. *** (H) - page 80> 
43EE EOF 
e 80 
endif 
43FO SOE6 endrepeat 


43F2 6036 restore r3 


115 
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43F6 7078 BD68& 


4400 7078 SDSA 
4404 577D OEBA 


440A 707D 40FE 
440E 3078 FCO4 
4412 4848 DE7B 
4418 307A 8000 
441E 707A 8000 
4424 4E78 2100 
442A 707D OEBA 
442E 3478 O1BE 


4432 7049 SDSA 
4436 7078 O1BE 


443E 704B SDAA 


4442 304A 8000 


444A E013 
- page 81 


444C 90D8 
444E 3008 BD68 


4452 6006 
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;Now check memory bus coupler ends 


Ida r5,=bsadm! 
lock bbclok 


pepeat 
until r5 = =o 


if usebus .bit. bittab+bsadrm-bsadrs(-r5) 


setmap m2,bsmapm(r5) 


Ilda r4,=bbcfor+bbcpas 
lda r7,=0 
sta r7,m2(r2) 
ifnot quit 
Ilda r7,m2(r2) 
ifnot quit 
if r7 = =bbcans 


:;now for all memory busses 
;get BEC 


:for each memory bus 
;next M bus there 


;its map setting 
;default: forward enable 
:;first look for coupler 
;see one? 


iyes 


Ilda r7,bittab+bsadrm-bsadrs(r5) ;coupler’s bit 


iorm r7.scdbus 


Ilda r4,amproc(r1) 
ifnot scdbus .bit. =<1i_<bsadil/words>>-1 


Ida r4,ampcom(r3) 


endif 
endif 
sta r4,m2(r2) 
next ifnot quit 


endif 
endif 


Trap 23,<;QUIT on BCM coupler *** CALL BBN MAINT. *** (H) 


endif 
endrepeat 
unlock bbclok 


endroutine scdtst 


;this coupler on this bus 
;now for proper password 
;no io coupler 


;common bus amputate state 


;set proper BBC state 
;Okay for this bus 


;done BBC for a while 


- page 81> 
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4454 
4456 


4458 
445A 


445C 
4460 
4464 
4468 
446A 
446C 
4470 
4472 
4474 
4476 
4478 
447C 
447E 
4480 
4482 
4484 


4486 
448A 


448C 
4490 
4492 
4496 
449A 
449C 
4440 
44A2 
44A6 
44A8 


44AC 


44AE 


44B0 


44B2 
44B6 


SDSA 
01CcO 
40C6 


BD68 


44C8 


F800 


OEBG6 


4454 
OO8E 


0086 
OEBG 


01CO 


5D9A 


PAGE 67 


; SCDBBC 


;Routine to maintain BBC state for a given coupler. If any 
;processors need to be discovered on this bus, look for 
:them using BBC. Results of processor discovery to PROCD. 
:R1 has current COUTAB index, R5 has coupler address to use. 


;table of BBC map settings to get to processor control registers 


scdtab: <%cpud+%ctr1l>&bbcmsk ;even proc 
<%cpu 1+%ctr 1>&bbcemsk ;odd proc 


routine scdbbc, arg ri-r2, arg rS, local 


lda r4,amproc(r1) 
jda r3,procd 

ior r3,prokil 

srl r3,ri 

and r3,=3 

lock bbhclok 


if r3 <> =3 


ior r4,=bbcbak 
call scdset 
if fail 

fail return 


endif 
and r5,=iomask 
Ilda r4,=2*words 
repeat 
ifnot r3 .bit. bittab(-r4) 


lda r7,scdtab(r4) 
sta r7,bbcmap(r5) 
ifnot quit 
Ilda r7,bbewint<%ctrl&bbcwmk>(r5) 
ifnot quit 
Ilda r7,bittab(r4) 
sii) 77 et 
iorm r7.procd 
endif 
else 
Trap 7.<;BBC map fail (Poss bad 


endif 
endif 
until loop 
endrepeat 
Ilda r4,amproc(r1) 
add r5,r2 
endif 


r3, uses r4 


;proper proc amputation state 
;procs already found 

;plus ones not to look for 
:interesting ones to bottom 


;do some BBC 
sothers to look for 


:backwards enable 
:try to turn it on 
:found us (BBCLOK unlocked) 


swhich bus 
;for each proc on bus 


;this proc not found yet 


:map to this proc 
:set up BBC window 
;proc there? 

:yes . 

:got the proc 


:set its bit 


coupler) (H) - page 82> 


:proper amputation 
:and coupler address 
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44B8 4078 44C8 call scdset ;restore proper amputate 
44BC 8A02 if fail >was our coupler (BBCLOK unlocked) 
44BE SOEO fail return 
endif 
44CO 3008 BDG68 Unlock bbclok :done BBC for now 
44C4 6036 endroutine sccdbbc 


44C6 6006 
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44C8 


44CA 
44CC 
44CE 


44D0 
44D4 
4406 
44DA 
44DE 
44EO 


44E2 
44E6 
44E8 
44EC 
44EE 


44F2 
44F4 
44F6 
44FA 
44FC 
44FE 
4500 
4502 
4504 
4506 
4508 
450C 
450E 


4512 
4514 
4516 


1076 


3045 
8002 
6006 


3008 
4841 
7078 
4E78 
9102 
4cci 


7648 
9106 
3048 
EO1A 
4048 


48F1 
A274 
3478 
40C1 
48F1 
A274 
4BC1 
A634 
9907 
A2C5 
774C 
8003 
3478 


6076 
4FFO 
4007 


BDG68 


0054 
002A 


OOAA 


OOAA 


OAIC 


01CcO 


FFE 


01CcO 
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; SCDSET 
;Subroutine to set the coupler state. 


;Called with password to use in R4, coupler address in R5. 
;If necessary, the bits to inhibit processor discovery for this 


sbus are in R3. R1 has current index 


into COUTAB, which is PROCNO 
;Of even proc on this bus. Processor disvocery answer is in PROCD. 


:If a QUIT happens, unlock BBCLOK, check to see if its our 
; coupler; if not, reset our coupler number and restart, else 
; do processor discovery on our bus and fail return. 


@R4 and RS intact in succeed return. 


routine scdset.arg ri.arg r3-r5.uses rd4-r5 


sta r4,(r5) 
ifnot quit 
return 
endif 
unlock bbclok 
Ida r4,r4 
Ida r7,quitv 
if r7 <> =%abrtO+twords 


ior r4,=1 
endif 
if r4 <> procno 


sta r4,procno 
Trap 32,<:Stge CD:Bad Proc Id (H/S) 
jsb r4,wst 


endif 
lda r7,=1 
sll r7,r4 


iorm r7,procd 
eor r4,=1 
lda r7,=1 
sil rt.r4 
and r4,=1 
srl r3,r4 
ifnot odd 
s11 r4,5 7:%cpu 1-%cpuod 
tst r4,%cpudt%ctri(r4) 
ifnot quit 
iorm r7,procd 
endif 
endif 
fail return 


endroutine scdset 


;do the coupler setup 
;all’s well 

;done BBC now 
;current COUTAB index 


rwhich QUIT vector? 
;odd guy 


:this should be me 


‘ 
;oops, better restart 


* page 84> 


ymy bit 
;I exist 
:my buddy’s number 


;buddy’s bit, 

:just odd bit 

;see if buddy exists 
pnot yet 


: look for buddy 
:got one 


119 
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.comnt 
Block Transfer Subroutine 


Monitors state of the block transfer control variables. If any 
transferring needs to be done, do it. Will do physical or 
logical memory transfers. Polls application-supplied 

external reload routines as well. Used by later stages when any 
memory is found to be lacking. or for processor-reloading and 
restarting, and external reloading and restarting. Application 
programs (e. g. DDT, IMP dump/reload) may also use it as well. 
Called from stage once we get to stage RC. Use rckcon for 

a consensus to drive us. 


-comnt 

Block transfer to one’s buddy. Only called if buddy isn’t in the 
RCKCON consensus. Assume buddy is halted, and step him to do the 
deposits or examines. 


PAGE 85 


4518 3478 0180 bitbud: iorm r7, temp2 :remember buddy’s bit 

451C 3008 0182 sta rO,temp3 ;can’t check buddy for spares 
4520 4078 4A14 jsb r7,blitprs ;do proc stuff 

4524 8703 tf3 bitc3 71/11 read his regs} 

4526 4008 46B0 : 

452A 483A FFOO lda r3,=%cpud(r2) ;point to buddy’s régs 
452E 4891 Ilda ri,=pchalt 

4530 301B OO1E sta ri,%ctri(r3) shalt the buddy proc * 
4534 4818 F800 Ida ri, =hathlithla+“13+%14 yinhibited and active 
4538 301B 0010 sta ri,%stat(r3) ;into his status 

453C 802C qutpat bltbcq ;he didn’t stop properly 

453E 487E FFFC Ida r7,=-2*words(r6) ;Sstart PC just before xfer 
4542 3073 sta r7,(r3) ;;%4regO ; so dumping uses inst fetch 
4544 AGAS SFI £25 ;get back odd bit 

4546 4C28 0810 jor r2,=key O ;instruction to properly key buddy 
454A 4893 Ilda ri,=pestep :constant to step proc 

454C 302B 0012 sta r2,%inst(r3) ;key inst to inst reg 
4550 301B OO1E sta ri,%ctri(r3) 7Mow execute the key inst 
4554 963D bf2 blitbus :what we should do is start him 
4556 4878 8000 lda r7,=nop ;inst if reading memory 

455A 8503 bnfi .+6 ;that’s what we want 

455C 4878 2012 Ida r7,=sta ri,(r2)+ ;writing memory 

4560 306B 0004 sta r6,%reg2(r3) ; location to examine/deposit 
4564 7024 bltbu1: Ida r2,(r4) ;next word from bit buffer . 

4566 302B 0002 sta r2,%regi(r3) :into his ri 

456A 307B 0012 sta r7,%inst(r3) ;setup his inst 

456E 301B OOI1E sta ri,%ctri(r3) ;step him 

4572 702C 0000 Ilda r2,0(r4) ; long, long nop 

4576 7663 cmp r6,(r3a) ::%4regO ;step okay? 

4578 8123 bne bl tbmq snope, give up with error 

457A 4AE2 add r6,=2 ;expected next pc 

457C 702B 0012 lda r2,%inst(r3) ;contents he fetched 

4580 2024 sta r2,(r4)+ : into buffer 

4582 49D2 sub r5,=words ;number of bytes left 

4584 BAFO bnz bitbui :more yet 
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4586 9503 blitbuc: tnfi bitmsk :filling buffer: toggle bit 
4588 4008 46FE , 
458C 7038 0180 blitbgo: Ida r3,temp2 :restore bit(s) of proc(s) we did 
4590 4008 47AC tr bltbit ;emptying: remove proc bits 
4594 4818 0020 bitbeq: Ida ri,=bltedk ;proc access error 
4598 3158 5DC4 bitbue: subm r5,bltdon 
459C 9502 bfi .+4 ;storing core 
459E A298 sil rt, HS ;shift into position 
45A0 3418 SDBC iorm ri,blitst :set error bits 
45A4 7038 0180 lda r3,temp2 ;procs we tried 
45A8 3438 SDCC iorm r3,biltbmk ;remember bad quys 
45AC 4D38 FFFF eor r3,=-1 
45BO 850A bnf1 bl tbug ;were getting core 
45B2 3338 SDDE andm r3,bltdpi ;remove procs from dest 
45B6 8AEB bnz bltbgo ;others are all right 
45B8 4891 bltbut: Ida r1i,=bltact ;give up altogether 
45BA 4008 4708 tr blteor 
45BE 4818 0010 bltbmq: Ilda ri,=bltedq ;dest quit bit 
45C2 SOEB br bltbue 
45C4 3338 5DD8 bitbug: andm r3,bltspm ;forget this source proc 
45C8 SAF8 bz bitbut ;no more to try 
45CA 4008 470C tr bitbpr :flip bits 
45CE 9503 bitbus: tnf1 blttog ifilling, just toggle 
45D0 4008 4706 
45D4 7818 5DBC ldab ri,bltst ;state 
4508 4F97 tst ri,=bltrun}bltctl_- H8 :7perun}pchalt ;start proc? 
45DA SADG6 bz bltbuc :none, no start 
45DC 4B93 and ri,=bltctl_- H8 
45DE 8A0D bnz bi tbuz 
45EO 4818 OSE6 Ilda ri.,=wstini j;nominal start 
45E4 3013 sta ri,(r3) :;%ZregO ;new PC 
45E6 7018 5DCA Ida ri,bltpro 
45EA 301B 0006 sta r1,%reg3(r3) shis procno 
45EE 4818 F800 Ida r1.=Aas%K%l1}%12PAIB)AI4 :start status 
45F2 301B 0010 sta ri,%stat(r3) ; into reg 8 
45F6 4892 Ida ri.=perun :start buddy 
; Trap 31,<;Buddy Procs strtd (Call MAINT if continuous) - page 86> 
45F8 301B OO1E bitbuz: sta ri,%ctri(r3) 
45FC 90C5 br bl tbuc 
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Main entry to Block Transfer Subroutine 


PAGE 72 


PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 87 


Sets up registers, and dispatches depending on type of memory 


being transfered. 


If either type is external (sign bit true) 


then poll the external reload routine. 


45FE 
4602 
4606 
4608 
460C 
4610 
4612 
4616 
4618 
461C 
4620 
4622 
4624 
4626 
462A 
462E 
4632 
4636 
463A 
463C 
463E 
4642 
4644 
4648 
464C 
464E 
4652 
4654 
4658 
465A 


465E 
4662 
4666 
4668 


466C 
4670 
4674 
4678 
467A 
467C 
467E 


3078 
7018 
SAFE 
4838 
3038 
0270 
7018 
9903 
4008 
4838 
4F92 
9A04 
0290 
4838 
7048 
3048 
7048 
7058 
8A02 
O2A0 
4E58 
9203 
4858 
3058 
6023 
4F28 
8A06 
7068 
996C 
4008 


4818 
3218 
854C 
4008 


7038 
7138 
4F38 
SAS4 
EOIB 
4895 
9045 


O17E bit: 
BDBA 


FFFF 
0180 


5DBC 


4720 
5DD6 


5SDDA 
5DC6 b1tO2: 
FCO4 
5DC8 
5DC2 
0040 


0040 
5DC4 


EOOO 
SDCO 


484E 


sta r7,temp1 ;put away the return 

lida r1,b1tlok ;intertock bit 

bz .-4 

Ilda r3.=-1 shaven’t picked a proc yet 


sta r3,temp2 
rst “FI+%F2+“FZ ; init states 
Ilda ri,bitst ;what’s doing 
tno bitx ;7bliltact snothin’ 


Ida r3,=bitsty ;point to source params 
tst ri,=bltful ;full bit buffer? 
bz b1toO2 
sst “f1 :Signal to empty buffer 
lda r3,=bltdty ;destination parameters 
Ida r4,blitbfm imap for bit buffer 


sta r4,%map2 ;is through map 2 

lda r4,bltbfa ;its address there 

Ilda rS,bltsiz show much to do 
bnz .+4 ;non-zero 

sst “%F2 yat end- maybe start up 
cmp rS.=bltmax ;more than maximum 
bg .+6 ;nope 

lda r5,=bltmax ;just do that much 
sta r5,bltdon ;length we might transfer 

Ida r2,(r3)+ ribltsty bltdty :type 
tst r2,=bltfak}bltddt}bitfex :non-bIlt use? 
bnz bitfgo :yes, fake it 

lda r6,bitadd ;address 

bo bltcom ;7bitnic ;common memory transfer 
jmp blitpch 7must be a processor then 


;Fake half of a non-BLT transfer 


0040 bitfgo: 
5DC8 


47B6 


Ida ri,=bltmax ;how much transferred 

addm ri.bltbfa :advance buffer pointer 

bnfi bitmsk ;set up procmsk and Flip ful bit 
tr bitfdn ;advance pointers, etc. 


;check bit timeout 


SDBE bittch: 
OOAO 
Fooo #@ 


Ilda r3,bitto ;how much time gone 
sub r3,stime ; less present 

tst r3,= HFOOO ;reasonable? 

bz bitx :yes 


Trap 33,<;B1k Trans Timeout (proc trb1) - page 87> 
Ida ri,=biteto}blitact : 
br blteor ;stop bit 
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.comnt | 
Block transfer to or from common memory, or my own local 
Enter at bltcom 


4680 2026 bltceq: sta r2.(r6)+ ;put into memory 
4682 80S9E qutpat bltbmq ;no memory 
4684 4008 47A4 tr blitcel ;but proceed 
4688 A2A9 bitel: sl) r2. HS ;physical page 
468A 3028 0182 sta r2,temp3 ;remember type for spare check 
468E 9611 bitc4: bf2 bltc3 ;no checking, transfer finished 
4690 4C68 6000 ior r6,=m1 ymake map 1 address : 
4694 3028 FCO2 sta r2,%mapi :get target 
4698 9993 bo bl tbmq ;not a legit map} 
469A 4078 4A10 jsb r7,.bltprm 
46SE 4878 40FG6 Ilda r7,=ccktab ;cksum table for common 
46A2 4838 OACE lda r3,=stgpas 
46A6 7638 6OC4 cmp r3,mi#rkepas ;see rely? 
46AA 8003 qutpat bltc3 ;no - bad parity or no memory 
46GAC 8102 bne blitc3 ;no see rely 
4GAE 49F2 sub r7,=ccktab-rcktab ;do see - rely checksums too 
46BO 955D bltc3: bfi bltcc ;empty the buffer 
46B2 9626 bf2 blitmsk ;done transfer 
46B4 6036 bltcf: Ilda r3,(r6)+ :get a word 
46B6 8084 qutpat bltbmq ;oops 
46B8 2034 sta r3,(r4)+ :into buffer 
46BA 49D2 sub rS,=words 
46BC 8AFC bnz bitcf ;more to fill 
46BE 4F18 0080 if ri .bit. =bitsdf ;checking spares 
46C2 SAIE 
46C4 7028 0182 Ida r2,temp3 :saved type 
46C8 9B1B ifnot minus snot big physical page 
46CA 7628 4104 if r2 < ncodep ;was code 
46CE 8218 
46D0 7228 4104 add r2,ncodep 
46D4 703A OOBO Ida r3,}map(r2) ;get map 
46D8 9913 ifnot odd :page exists 
46DA 3038 FCO2 sta r3,%map1 
46DE 7058 SDC4 Ilda r5,b1tdon show much to check 
46E2 4965 sub r6,r5 :back up pointers 
46E4 4945 sub r4,r5 
repeat 
46E6 6036 Ilda r3,(r6)+ ;next spare word 
46E8 8005 until quit 
46EA 6634 until r3 <> (r4)+ ;check in buffer 
46EC 8103 
4GEE 49D2 sub r5,=words 
46FO 8AFB until zero 
endrepeat 
46F2 4EDO if r5 <> =O ;got quit or mismatch 
46F4 9105 
46F6 4D18 0080 eor ri,=bltsdf ;stop checking then 
4GFA 3018 SDBC sta ri,blitst zand report difference 
endif 


endif 


123 


endif 
endif 
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46FE 7068 5DDE bitmsk: Ida r6.bltdpi :;init dest proc mask 

4702 3068 SDDC sta r6,b1tdpm 

4706 4892 blttog: Ida ri,=bltful ;change full state 

4708 3518 SDBC blteor: eorm ri.bitst 

470C 7038 OOAG6 bitbpr: Ida r3.myproc 

4710 3038 SDCA sta r3,.b1tpro :I did it 

4714 7038 OOAO lda r3,stime ;time now 

4718 4A38 0078 add r3,=bltrat ;how long before timeout 

471C 3038 SDBE sta r3,bitto ;update timeout 

4720 3008 BDBA bIitx: sta rO,bltlok ;unlock bit 

4724 4868 O02C8 Ilda sp,=silstack 

4728 4078 4A46 call polrlid ;check if reloading 

472C 4088 O17E jmp @temp! :;done the subroutine 
;BLT to/from common memory 

4730 4B68 9SFFE bitcom: and r6,=<bltlog}packm>&<-1?b1tnlc> ;relevant bits 

4734 8BAA bnm bite :ibltlog :physical page 

4736 4F18 O800 bitc2: tst ri,=bltspa j;want spare? 

473A SAOB bz bltcG ;no 

473C 7628 4104 cmp r2,ncodep :A real code page? 

4740 8208 bng blitc6 ;nope 

4742 7228 4104 add r2,ncodep 

4746 703A OOBO lda r3,!Imap(r2) ;spare exist? 

474A 8903 bno bl tcG6 :yes 

474C 7128 4104 sub r2,ncodep ;transform to main type 

4750 3028 0182 bitcG: sta r2,temp3 

4754 702A OOBO Ilda r2,1lmap(r2) ;logical to physical 

4758 4B68 1FFE bitc7: and r6,=packm :will use map |} 

475¢C 9099 br blitc4 

475E A698 bitmys: srl ri, H8 

4760 4B93 and ri,=bltcti_- H8 ;rpchalt}perun 

4762 9A23 bz bl tmyb :no mess with R15 

4764 3018 0160 sta ri.bltmyr+%ctrl 

4768 9020 br blitmyb 


pluribus IMP Loader 
STAGEK.PLR;1 


476A 
476C 
47GE 
4770 
4772 
4774 
4776 
4778 
477A 
477C 
ATTE 
4780 
4782 
4784 
4788 
478A 
478C 
478E 
4790 
4792 
4794 
4798 
479A 
479C 
479E 
47A0 
47A4 
47A6 
47A8 
47AC 
4780 
47B4 
4786 
47BA 
47BC 
47CO 
47C4 


47C6 
47CA 
47CE 
47D2 
47D6 
47DA 
470C 


SG6FA 
4F98 
SAOE 
6037 
9AOC 
4E63 
92FD 
4826 
7123 
B8OFA 
8BF9 
5073 
8004 
4E78 
8102 
48B2 
6024 
7126 
8002 
3003 
4008 
3123 
2226 
8002 
9003 
4008 
4902 
BAF3 
7038 
4038 
3338 
BAAC 
7068 
SAO6 
3168 
3268 
S0A1 


7038 
4A38 
3038 
7818 
3098 
4893 
s096 


FEED 


4680 


45BE 


0180 
FFFF 
5DDC 


5pc4 


5DC2 
5DCO 


OOAO 
0078 
5EAO 
BDD1 
OOAC 
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;check here for checksums to adjust 


bitcc: 


bitcci: 


bitce: 
bitce2: 


bltce1: 
bitmyb: 
biltbit: 


bitfdn: 


bitend: 


PLURIBUS V2.9B 


bf2 blitmys 
tst r1,=bltcck 
bitce 
r3,(r7)+ 
blitce 
r6,r3 
bitcc! 
r2,r6 
sub r2,(r3) 
gutpat bltcci 
bnm blitcci 
lda r7,(-r3) 
qutpat bltce 
cmp r7,=ckpass 
bne bitce2 

Ilda r3,=bitsnk 
Ida r2,(r4)+ 
sub r2,(r6) 
gutpat bltceq 


subm r2,(r3) 
addm r2,(r6é)+ 
qutpat bltbmq 


sub r5,=words 
bnz bitce2 
lda r3,temp2 
eor r3,=-1 
andm r3,b1tdpm 
bnz bitbpr 
Ida r6,bltdon 
bz bltend 
subm r6,bltsiz 
addm r6,bltadd 
br blittog 


Ilda r3,stime 
add r3,=prrate 
sta r3,prtime 


25-Jun-87 11:20:52 


- 


;transfer complete 
;really checksumming? 
;no, not really 

;next checksum range 
;end of table 

;addr in range? 

:addr < low limit 


shigh limit 

;oops, bad parity 
;addr GE hi limit 
;cksum parity okay? 
;nope 

:don’'t modify if password 
;default 
;next in buffer 
; change 


;oops, see if parity 


:diddle checksum 
;and fix core 


;must be a hard QUIT if any 


:more in buffer 
;my bit 


;One proc done 
;but others aren’t 
;how many bytes done 


:just finished: maybe startup 


; total bytes remaining 
;update transfer address 
;flip the bit 


;set up next time 
; for processor start-up 
: (give new ones a chance) 


Idab r1,m3/b1tpok+i 


sta ri,@pid 


Ida rt,=bitact}bltful 


br blteor 


;completed transfer 


PAGE 90 


if no checksum to update 


( ) 127 
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Transfer to/from processor space. Simulate maps in memory (bI tmym) 


47DE 3478 0180 blitme: iorm r7,temp2 s;bits for procs we did 
47E2 4078 4A10 bitmei: jsb r7,bltprm ;check if regs 

47E6 8703 bnf3 .+6 ;not regs 

47E8 496A FDBE sub r6,=%cpuO-bl tmyr(r2) ;point at simulated regs 
47EC 4878 40EE lda r7,=lcktab ;default checksum list 
47FO 3078 0182 sta r7,temp3 ;never spares 

47F4 4866 Ilda r6,r6 ;what address? 

47F6 9B11 bm bltm1 ymay be I/O 

47F8 4E68 4000 cmp r6,=mO smaybe map O or 1 

47FC 8203 tg bitc3 ; local memory address 
47FE 4008 46B0 

4802 4826 biltm3: Ida r2,r6 ;simulate maps here 

4804 A3A4 rll 72,4 z;high to low order 

4806 4BAE and r2,= HE ;ipackm ; to select map 
4808 702A O15E lda r2,b1tmym-<mO_- D12>(r2) ;proper map 
480C 4F28 FFO1 tst r2,= HFFO!1 

4810 SA93 bz blitc2 ; logical page 

4812 4B28 FFFE bitm2: and r2,=-2 :use physical page 

4816 SOA1 br bltc7 

4818 4E68 COOO blitmi: cmp r6,=m3+<m3-m2> 

481C 92F3 bg bltm3 :common memory address 
481E 4E68 FCOO cmp r6,=%mapo ;changing map req? 

4822 S2EE tg bitc3 ;nope 

4824 4E68 FCOG cmp r6,=%map3&-2 

4828 SCEB tl bitc3 ;nope 

482A 4968 FASE sub r6,=%mapO-bl tmym ;use virtual maps 
482E SOE8 tr bltc3 

.comnt 


BIlt to a specific proc. Check for me, then set up mask 
and go into proc mask checking code 


4830 7628 OOAG b1tiO: cmp r2,myproc sme the proc? 

4834 91D7 be bitmei ;sure ‘nuff 

4836 48B1 Ida r3.=1 

4838 4890 lda ri,=0 

483A GE29 5D6GA biti1: cmpb r2,coutab(ri)+ :this one in the table 
483E 9S11F be bIt12 :found the one 

4840 A2B1 sll r3,1 ;next proc’s bit 

4842 8AFC bnz biti ;more to try 

4844 EOIC Trap 34,<;BLT Target proc not in tb! - page 91> 


4846 4818 0040 bitfer: Ida ri,=bltedf ;format error 
484A 4008 4598 tr bltbue 
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484E 6033 bitpch: Ida r3,(r3)+ ;;bltdpm biltspm ;proc mask 
4850 4EAF cmp r2,=anypro j;processor set? 

4852 81EF tne b1itio ;noepe, one only 

4854 3038 0180 sta r3,temp2 ;in case format error 

4858 7338 5D64 and r3,procex ;what procs there are 

485C SAFS bz bitfer ;none?? 

485E 9607 bf2 bltpcs jat end, do everyone 

4860 487E 0400 lda r7,=-%mapO(r6) ; local proc address? 
4864 9SBO7 bm blitpco :yes, so leave all bits in mask 
4866 4E78 4400 cmp r7,=mO-%mapo 

486A 8204 bng bitpco ;yes 

486C 48FO bltpcs: Ilda r7,=0 :we’ll just do one here 
486E 3078 0180 sta r7,temp2 ;haven’t picked one yet 
4872 7078 OOA8 bitpco: lida r7,procbt 

4876 4F37 tst r3,r7 ;me in mask? 

4878 8AB3 bnz blitme ;yes, I must do it 

487A 9507 bfi b1to3 ;emptying buffer 

487C 7738 5SE28 biti2: tst r3,rckcon ;any in consensus 

4880 9A03 tnz blittch :yes, let ‘em do it 

4882 4008 466C 

4886 9007 br b1t04 

4888 7018 5E28 b1tO3: Ida ri.rckcon ;consensus 

488C 4D18 FFFF eor ri,=-1 ;procs not in consensus 
4890 4B31 and r3,ri ;I might do one of these 
4892 SAF8 tz blttch ;none to do 

4894 7028 OOAA bi1t04: Ilda r2.,.procno ;my number 

4898 4DA1 eor r2,=1 imy buddy 

489A 48F1 lda r7.=1 

489C A272 sll r7,r2 shis bit 

489E 4F37 tst 73,7 ;he to be done? 

48A0 9A03 tnz bltbud :yes, I‘11 do him 

48A2 4008 4518 

48AG 7018 5E28 Ida ri,rckcon ; consensus 

48AA 4871 Ilda r7.rf 

48AC 4818 5555 and ri,= HS555 ;even guys’ bits 

48BO 4071 eor r7,r1 ;odds ‘ 
48B2 AGF1 Srl rit 

48B4 A291 sit ri.i 

48B6 4C17 10P 17 ;buddies of running procs 
48B8 9504 bf1 bIto5S :emptying buffer 

48BA 4F31 tst r3,ri yany with live buddy? 

48BC SAOG6 bz b1tO6G ino, I’11 do it by hbe 
48BE SOE2 tr blttch :yes, let that buddy do it 
48CO 4D18 FFFF b1tOS: eor ri,=-1 :not buddies of live guys 
48C4 4B31 and r3,ri ; anyone need help? 

48C6 SADE tz blttch ;none left 

48C8 48A0 b1tO6: Ida r2,=0 ;find this coupler 

48CA 48F1 Ilda r7,=1 

48CC 4F37 bIito7: tst r3,r7 

48CE 8A06 bnz bitbbc ; found one to do 

48D0 4AA1 add r2,=1 

48D2 A2F1i Sli rt. :next coupler and bit 

48D4 8AFC bnz bItO7 ;check next bit 

48D6 EO1D Trap 35,<:Non-existant proc in b1it?? (S) —- page 92> 


48D8 ¢ . br blitfer ;Bad bit format 
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.comnt 
Block transfer via Backwards Bus Coupling (BBC) 


Enter with r2/coupler number, r4/ buffer address, r5/words to transfer 
Assume the bus is amputated, since its pros not in system yet. Later’ 
stages would fix that anyway. 


48DA 3478 0180 bitbbc: iorm r7,temp2 ;rPemember proc bit for later 
48DE 703A SDSA Ilda r3,amproc(r2) ;Pproper amputate word 
48E2 3038 0184 sta r3, temp4 ;remember for later 

48E6 783A SDG6GA ldab r3,coutab(r2) ;processor coupler 
48EA 4078 4A14 jsb r7,bitprs :fix proc stuff 

48EE 4894 Ida ri,=bsadil :for all I/O buses 

48FO 7028 SDS5A bitbb2: Ida r2,usebus ;buses in system 

48F4 5729 OEBG bitbbO: tst r2,bittab(-r1) ;bus exist? 

48F8 8A04 bnz blitbb1 :yes 

48FA 88FD bnip bl tbbo ; look more : 
48FC EOE Trap 36,<;No I/O bus for BBC (H) - page 93> 
48FE SOA4 br blitfer :format error exit 

4900 3018 0182 bitbbi: sta ri,temp3 ;bus we tried 

4904 7079 0320 lda r7,bsadrs(r1) ;address of the bus, 
4908 4828 FFi8 jlda r2,=<%cpudt+%ctr 1>&bbcmsk sassume even proc 
430C 4A37 add r3,r7 ;get coupler address 

4S0E 8903 bno .*#6 ;its an even proc 

4910 4828 FF3A Ida r2,=<<%cpuit%etri>&bbemsk>+bbcoedd ;odd proc 
4914 7018 BDG68 Ida ri,bbclok ; lock for BBC 

4918 SAFE bz .-4 

491A 7018 0184 lda r1,temp4 ;proper amputates, password 
491E 4c94 ior r1,=bbcbak 

4920 3013 sta ri,(r3) ;enable for BBC 

4922 302F OO8E sta r2,bbcmap(r7) ;set map for control reg 
4926 7818 S5DBC Idab ri,blitst 

492A 4F97 tst ri,=bltctl}bltrun_- H8 

492C 9AO5 bz bl tbbg ;don’t need to halt him 

492E 4891 Ilda ri,=pchalt ;first halt the proc 

4930 301F 0086 sta ri,<%ctrl&bbcewmk>+bbewin(r7 ) 

4934 8053 qutpat bltbbk ;no proc here 

4936 9626 bitbb9: bf2 blitbbs yreally want to start him 
4938 4BA2 and r2,=bbcodd j;need this bit 

493A 4816 Ida ri,r6 

493C 4B18 FFF8 and ri,=bbcmsk j;map bits 

4340 4D61 eor r6.r1 ;window index 

4942 4AG7 add r6,r7 ;bus base for BBC window 
4944 4C12 ior ri,r2 ;get the key bit 

4946 301F OO8E bitbb3: sta r1,bbcmap(r7) ;point to memory 
494A 850A bitbb4: bnfi bltbb5 :filling the buffer 

494C 6024 Ida r2,(r4)+ jnext buffer word 

494E 202E 0080 sta r2,bbcwin(r6)+ ;BBC store 

4952 8047 qutpat blitbbq ;no memory there 

4954 762E OO7E cmp r2,bbcwin-2(r6) ;store okay? 

4958 8044 qutpat bl tbbq 

495A 8143 bne blitbbq ;problems 


495C 9005 br bl tbb6 ; proceed 


( \ 434 
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495E 6O2E 0080 bitbbS: Ida r2,bbcewin(r6)+ 7next word from BBC 
4962 8040 qutpat bltbbr ;no memory 
4964 2024 sta r2,(r4)+ ; into buffer 
4966 49D2 blitbbG: sub r5,=words ;done a word 
4968 9AOG bz blitbb7 ;transfer complete 
496A 4FE6 tst r6,=bbcwmk ;through window? 
496C 8AEF bnz bl tbb4 snot yet 
49GE 4A98 add r1,=bbewmk+words ynext map setting 
4970 49E8 sub rG, =bbcwmk+words sback to window start 
4972 SOEA br bltbb3 
4974 7028 0184 bitbb7: Ida r2,temp4 ;undo BBC enable 
4978 3023 sta r2,(r3) 
497A 3008 BDG68 sta rQ,bbclok ;done with BBC 
497E 4008 4586 tr bitbuc ;fix the bits 
4982 85F9 bitbbs: bnfi blitbb7 :filling: ignore 
4984 7818 SDBC Idab ri.bitst ;state 
4988 4F97 tst ri,=bltrun}bltctl_- H8 ;ipchalt pcrun ;starting? 
498A SAFS bz bltbb7 7;NO - go away . 
498C 4B93 and r1,=bltct]_- H8 
498E 8A23 bnz bltbbz 7 
4990 49A8 sub r2,=<Actrl-%inst>&bbemsk :get to IR 
4992 302F OO8E sta r2,bbcmap(r7) 
4996 4812 Ida ri,r2 
4998 4B92 and r1,=bbcodd ;just odd bit , 
499A A691 srl ri,1 >to low order 
499C 4C18 0810 ior ri,=key O ;proper key inst 
49A0 301F 0082 sta r1,bbcewint<%inst&bbcwmk>(r7) ;to IR 
49A4 8020 qutpat bitbbt 
0000 .if nz <Ainst-%stat>&bbemsk 
sub r2,=<hinst-%stat>&bbemsk 
sta r2,bbcmap(r7) :get to status 
.endc 

49AG 4818 F800 Ida r1,=AasA~L1}%AL2}%~L3}%L4 ;new value 
49AA 301F 0080 sta r1,bbcewint<%stat&bbawmk>(r7) 
49AE 4928 0010 sub r2,=<Astat-ZregO>&bbemsk :get to PC 
49B2 302F OO8E sta r2,bbcmap(r7) 
49B6 4818 O9SE4 Ida ri,=wstini-words :nominal start address 
49BA 301F 0080 sta ri, bbcwint<Zregd&bbcwmk>(r7 ) sinit PC 
49BE 7018 SDCA Ilda ri,bltpro ;his procno 
49C2 301F 0086 sta ri, bbcwint+<%reg3&bbcwmk>(r7) ;to r3 
49C6 4A28 0018 add r2,=<%ctrl-%regoO>&bbcmsk 
49CA 302F OO8E sta r2,bbcmap(r7) iget to control reg: 

; Trap 30,.<;Rstrtd proc via RBC - page 94> 
49CE 3038 SDD2 sta r3,bberst ;remember who we did 
49D2 4892 Ilda ri,=pcrun :to start the processor 


4904 301F 0086 bitbbz: sta r1,bbcwint<%ctrl&bbcwmk>(r7) 
49D8 S9OCE br bl tbb7 :starting: allow proper access 
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49DA 4878 4594 bitbbk: Ida r7,=bltbcq :routine to go to 


49DE 9008 br bl tbby ;see if another bus to try 
4SEO 49C2 bitbbq: sub r4,=2 ;backing up the pointers 
49E2 49E2 bltbbr: sub r6,=2 
bltbbt: Trap 40,<;BBC fail (CALL MAINT if 1& TRAP occurs) (H) - page 95> 
49E4 E020 
ge 95 
49E6 3038 SDD4 sta r3,bbchad ;remember who failed 
49EA 4878 45BE Ilda r7,=bl tbmq 
49EE 7028 0184 bitbby: Ilda r2,temp4 :fix BBC 
49F2 3023 sta r2.(r3) 
49F4 3008 BD68 sta rO,bbclok ;done BBC 
49F8 4B38 OO7F and r3,=bbcwin-1 ;get back proc num 
49FC 4BE6 and rG,=bbcewmk ;reconstruct where we are 
49FE 4818 FFF8 and ri,=bbcmsk 
4A02 4AG1 add r6,ri 
4A04 7018 0182 lda ri,temp3 
4A08 9AO3 tnz bl tbb2 ;other bus to try 
4A0A 4008 48FO 
4A0E 4007 jmp (r7) ;error: set bits 


;subroutine for bltbud, bltbbc 
;return r2/ 0 (cpud) or 20 (cpul) 
;call r7/ return, r2/ procno of dest, r6/ blt address 


4A10 7028 OOAA bitprm: Ida r2,procno :entry for own processor 


4A14 3028 5DCA bitprs: sta r2,bltpro ;temp, his procno 

4A18 782A 5DG6A ldab r2,coutab(r2) :who we’re coing 

4A1iC 9603 ifnot f2 ;if not at end 

4A1E 3028 SDCE sta r2,bltdid ;remember for DDT 
endif 

4A22 4BA1 and r2,=1 ;odd bit 

4A24 A2A5 sll r2,5 73%cpu1-%cpuod 

4A26 4E68 FFIE cmp r6,=%cpudt%etr ;proc reg? 

4A2A 9CO6 bl blitprx ;nope 

4A2C 4E68 FFOO cmp r6,=%cpud 

4A30 9203 bg bl tprx ;nope 

4A32 4A62 add r6,r2 spoint right if odd 

4A34 02CO sst “%F3 :we need regs 

4A36 4007 bltprx: jmp (r7) 


;now insert user reloader if any 


ridins 
»- INSRT IMP .PKCORE ° 
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.comnt 


ARPA Network reload subroutines 


Implements packet core reloading of a dead PLURIBUS over a modem line. 
PLURIBUS requests core types that it needs by calls on TRYRLD at 
appropriate places in STAGE code. Block transfer polls POLRLD 

in order to support external reloading. PKCIC and PKCOC are 

callable from fake hosts for core transfers between live machines. 


Page Dummy 


;core transfer parameters 


OOFO pkcrat=6* D40 :rpetry blank setup-send every 6 seconds 
o0oc8s pkcsto=5* D400 ;retry setup-send if no input for 5 seconds 
0640 pkclto= D40" DAO sonce active, be more lenient 
«tf Gf ‘PSE " 
0002 pkctry=2 :# of tries per device. 
stk ;0f PSE 
pkctry=6 ;# of tries per device. 
.endce ;df PSE 
OOOF pkcetmx= D15 :lock onto a device for this long 
FEOO cpmask= HFEOO 
B400 csetup= 0132000 :password for a setup 
B600 cpcore=csetup+ 01000 ;and for core 
B800 cabort=cpcore+ 01000 sand aborts 
0004 nfh=4 
0048 rbflen= D72 swords in reload modem buffers 


;Pluribus modem interface 


0000 .=0 
0000 statd: -blkw 1 
0100 modid= H100 
0s500 hmodid= HS500 
8000 magmod= H8000 
0002 starti: .blkw 1 
0004 endi: -blkw 1 
0002 hrdof f=words ;hardware stops a word short 
8000 mendf= H8000 
0006 statim: .blkw 1 
OOOE Towmsk= HE swhich bits of address go into status 
2000 mbusy= H2000 
0008 starto: .blkw 1 
OOOA endo: -bikw 1 


OO0O0Cc statom: .blkw 1 
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cooo 
cooo 


OO00B 


0100 
0080 
0100 
0007 


0013 


FFFO 


0019 


FEOO 
OOF F 


PAGE 2 


;words inare 


-=0 

neth: -blkb 
cpsize: .blkb 
typh: -blkw 


paktyp= HCOOO 
ridtyp= HCOOO 
chkh: »bikw 
cpsats: .blkw 
cpsatd: .blkw 


pkth: »blkw 
cpdh=pkth+1 

dsth: -bIlkw 
cpdl: -bIlkw 
cmark: -bIkw 


cmmbit= H100 

crpbit= H80 
crpcnt= H100 
cpline=7 
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load packet header 


1 ;network header 
1 ;core piece size 
1 ;special flags if core 


1 :checksum 

1 ;:srch ;satellite source 
1 ;;seqh ;and dest 

1 


;core dest Host num (byte) 
1 ;core dest imp 
1 ;;midh j;core dest link 


1 ;;data j;mark to distinguish core, setup 
;bit to say for magic modem (no special processing) 
;repeat bit 
;how many times to repeat(32 seconds) 
iwhich line to send to 


cmmbeg: .blkw O ;where to copy magic modem data down 


;data in a setup 


cforha: .blkw 


1 ;Foreign handling type 


cforhs=cforha+1 7Foreign Host (byte addr) 


cfori: -bIkw 
cformi: .bikw 
messid= HFFFO 
ctype: .blikw 
cforl=ctype+i 
cpkadd: .blkw 
cpksiz: .blkw 
cpkssf: .blkw 
csrflg: .blkw 


1 ;Foreign IMP number 
1 ;Foreign message-id 


1 ;core type 
;and foreign line 
1 ;start address 
1 ;transfer size 
1 ;send setup flag 
1 ;send/receive flag (end of setup) 


;data in core piece 


-=cmark+2 
ccaddr: .blkw 
cctype: .blkb 
ccsize: .blkb 
pkctmk= HFEOO 
pkclmk= HFF 
ccpiec: .blikw 


sbikw 


1 ;this piece address (O=last piece) 
1 ;type and size 
1 :size of this piece 
;mask for type bits 
:mask for length field 
1 ;beginning of the piece 


DSS swords of data, plus ending O 


bufend: .blkw O ;how much in a legit message on modem 
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SEAC 


SEBO 


SEB2 
SEB4 
SEB6 
SEB7 
5EB8 
SEBA 


SEBC 


SEBC 
SEBE 
5ECO 
SEC2 
SEC4 
SEC6 
SEC7 
SEC8 
SECA 
SECC 
SECD 
SECE 
SECF 
SEDO 
SED2 
SED4 


5ED5 
SEDG 
5ED8 
SEDA 
SEDC 
SEDE 


SFGE 


7074 
8000 
0200 
0100 
0080 
0008 
0002 
0001 


0040 
0040 


0039 


0022 


0142 


PAGE 3 
;Reload variables 
page relvars 


riddev: .blkw 1 ;which device to reload from 
locdef pkclok,<;lock on packet core parameters - page 98> 


pkest: .blkw 1 ;packet core state word 

biters=blters ;bits reported with setups for errors 
pkcist=sign :set -> input buffer in proqress 

pkcost= H200 :set -> output buffer being filled 
pkcext= H100 ;set -> external reload using packet core 


bitsdf=bltsdf ;:set -> check spare for differences 
bltcck=bltcck ;set whenever we get setup - fix checksums 
pkcety=2 ;set -> received illegal packet core type 
pkcact=1 ;set whenever pkt core is active 

pkctim: .blkw 1 ;packet core timeout 

pkcotm: .blkw 1 ;timer to slow pkt core output 

pkerct: .bIlkb 1 ;retry counter for device 

-blkb 1 ;spare 

pkcdon: .blkw 1 ;pkt core address after completing this piece 
pkcbfa: .bIlkw 1 ;present address in buffer 


pkccla: .blkw O ;:begin zeroing here 


psetup: .blkw 1 ;saved copy of latest setup 
pkctyh: .blkw 1 ;=rldtyp in packet core 

-blkw 1 ;checksum 
pkemyi: .blkw 1 ;source imp on dead line 
pkcnim: .blkw 1 ;neighbor IMP on dead line 
pkclha: .blkb 1 ;handling type in leader 
pkclho: -b1lkb 1 :host number in leader 
pkclim: .blkw 1 ;IMP number in leader 
pkclid: .blkw 1 ;message-id in leader 


psdata: .blkb 1 ;:password (setup or core),, line 
pkelln: -bIkb 1 ;(dest line) 

pkcfha: .blkb 1 ;foreign handling type and host 
pkcfho: -blkb 1 ;byte address 


pkcfim: .blkw 1 ;foreign IMP in setup 
pkcfid: .blkw :foreign mess-id 
pkctyp: .blkb 1 ;setup: type?t2+MM,,1line number 


_ 


pIrpkc= H40 :(old) Pluribus core type convention 
plrcom= H40 :(new) Pluribus common memory type convention 
pkcfln: .blkb 1 :foreign line 


pkcadd: .blkw 1 ;core address 

pkclen: .blkw 1 ; and length 

pkcmax= D57 :max to send per message 
pkessf: .blkw 1 ;send setup flag 

pkesrf: .blkw 1 ;setup: send/receive flag 
psetul=.-psetup ;how much in a setup 


ridinb: .blkw rbflen :reload input buffer 
ridotb: .blkw rbflen sand output buffer 


pkccll=.-pkccla ;how much to zero at init 
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;First, include global device-input code 
page LCode 


-insert "XSIOIN",XSIOIN 
-INSRT XSIOIN 


( \ 437 


pluribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 100 
XSIOIN.PLR;1 PAGE 1 


.comnt | : 
XSIOIN - Start I/0 input to buffer whose address is inri, len in rs, 
from device in rs. : 


This routine starts input while checking for a subset of 
possible interface failures, in an attempt to prevent a buffer from: ~ 
being read into the wrong place. Will not detect failures 
in the high-order 7 bits of a 20-bit address. nor in the low 
4, but will check the middle 9. After NSITRY tries fail, routine 
takes fail return. _ 


Call xsioin with: 

lda r1,<packed buffer acidress> 
Ilda r3,<buffer length> 

lda r5,<io blk> 

call xsioin 


0004 nsitry=4 show many retries before give up 

OED6 1076 routine xsioin,local r2,arg ri,arg r3,arg r5 
OED8 1026 
OEDA 48A4 lda r2,=nsitry ;init repeat counter 

repeat ;store start pointer. 
OEDC 301D 0002 sta ri,starti(rs) ;buffer start address (high 16 bits). 
OEEO 707D 0004 lda r7,endi(rs) ;check start pointer store. 
OEE4 AGF4 srl r7,4 ;adjust to match packed pointer. 
OEE6 4D71 eor r7.ri1 ;compare bits. 
OEE8 4F78 O1FF while r7 .bit. =<packm_-4> j;write Failed 
OEEC 9SA08 
OEEE 49A1 sub r2,=1 ;count a try 
OEFO 8A05 if zero ; too many 

‘ Trap 101,<:XSIOIN: 4 start ptr failures - page 100> 
OEF2 6026 fail return 
OEF4 6076 
OEFG 4FFO 
OEF8 4007 

endif 

> Trap 100.<:XSIOIN: Start ptr write failed - page 100> 
OEFA SOF 1 endrepeat ; 
OEFC A294 sil ri,4 :now, store end pointer. 
OEFE 4818 1FFE and r1,=packm 
OFO2 4A13 add ri.,r3 ;add buffer length 
OFO4 301D 0004 sta ri,endi(r5) ;buffer end address. 
OFO8 6026 endroutine xsioin 


OFOA 6006 


pluribus IMP Loader PLURIBUS V2.9B 25-Jun-87 11:20:52 PAGE 101 
IMP .PKCORE; 1 PAGE 4.1 


;tables for packet core init <loc,value> 


FCOO 0000 page relcode ;back to code page 
4A38 FCOO pkciid: 0O374_ D8 ; link for setups to NU. 
4A3A SEBE pkcitb: pkctyh,rildtyp 
4A3C COOO 
4A3E SECC psdata,csetup 
4A40 B400 
4A42 5EC6 pkclha,<2-nfh>& HFF 7ipkelho 
4A44 OOFE 
oooc pkcitl=.-pkcitb ;length of table 
-comnt | 
POLRLD 


Routine which performs stand-alone reloading of the Pluribus. 
Most of the protocol work is done in PKCIC and PKCOC, below. 
This routine manages the modem or Host interface for stand 
alone loading or dumping, but the subroutines are also called 
from the main IMP program, from Fake Host 2. POLRLD is polled 
from BLT if PKCST says it is active (PKCACT). 


4A46 1076 routine polrid, uses ri-r5 
4A48 7078 BEAE lock pkclok 
4A4C SAFE 
4A4E 7028 SEBO 1da r2,pkcst ;check PKC state 
4A52 8915 if odd ;;pkcact ;active 
4A54 7018 SEB2 Ida ri,pkctim 
4A58 7118 OOAO sub ri.,stime ;timed out? 
4AS5C 4F18 FOOO tst r1,= HFOOO 
4A6O SAOD ifnot zero :yes} 
4A62 4078 4F1C call pkcupt,pkcrat ;advance the timer 
4A66 OOFO 
4AG68 4891 lda r1,=1 
4AG6A 3918 SEBG subbm ri,pkerct ;too many tries? 
4A6E 8B04 if minus :yes 
: ifnot r2 .bit. =pkcext ;worry if IMP transfer 
H Trap 70,<;packet core timeout> 
- endif 
4A70 4DA1 eor r2,=pkcact ;clear active state + 
4A72 3028 5EBO sta r2,pkcst 
endif 
4A76 3008 SEDA sta rO,pkcssf ;send a setup anyway 
endif : 
4A7A 4822 Ida r2.r2 :;fFor a new odd test 
endif 
4A7C 890B if odd & r2 .bit. =pkcext yipkcact 
4A7E 4F28 0100 
4A82 SA08 
4A84 4078 4A98 call ridsub ;check reloading stuff 
4A88 8A05 if fail ;bad device or something 
4A8A 7°°S BEBO Ida r3,m34/pkcst ;go idle 


4A8E 7 BEB6G Idab r3,m3/pkerct with new device 


/ ) 4139 


endif ‘ 
endif 
4A92 3008 BEAE unlock pkclok 


4A96 6006 endroutine polrid 
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4A98 


4A94A 
4ASE 
4AA2 


4AAG 


4AAA 
4AAC 
4ABO 


4AB2 
4AB6 
4AB8 


4ABA 
4ABC 
4ACO 
4AC2 
4AC6 
4AC8 


4ACC 
4ACE 
4AD0 
4AD4 


4AD6 
4ADA 
4ADC 


4ADE 
4AEO 
4AE4 
4AEG 
4AE8 


4AEA 
4AEC 
4AFO 
4AF4 


4AFG 


1076 


7028 
7058 
4958 


4A58 


4875 
4878 
4894 


5679 
9102 
88FD 


8104 
7729 
8A07 
485F 
SBO3 
7058 


SOEF 
4875 
4B78 
4898 


5679 
9102 
88FD 


9104 
485F 
S0E3 
7075 
80DF 


8000 
4B78 
4E78 
81D9 


3058 


F800 


0320 


OEB6 


0800 


0320 


FFOO 


4116 


0100 


7BCO 
0100 


SEAC 
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. 


;RLDSUB 

;Check for any stand-alone packet core work to do. 

;Only called of PKCACT and PKCEXT set. with PKCLOK locked 
routine ridsub,uses ri-rsS 


;First make sure device’s address and bus are okay 


Ida r2,usebus ;1/0 buses in system 
lda r5,riddev ;current device to use 
sub r5,=devinc ;try to keep same device 
repeat 
repeat 
add rS,=devinc ;to next device 
repeat 
repeat 
lda r7,r5 
and r7,=iomask ;bus for this device 
Ilda ri,=bsadil 
repeat 
cmp r7,bsadrs(-r1) ;bus exist? 
until equal ;maybe 
until loop ;never 


endrepeat 
until equal & r2 .bit. bittab(ri) 


Ida r5,=businc(r7) ;start at next bus 
ifnot minus ;optimize over non-I/0 
lda rS5,bsadrs ;start of first bus 
endif 
endrepeat 
lda r7,r5 ;here when on good I/O bus 
and r7,=segmsk ;now check 1/0 segs 
lda ri,=useiol 
repeat 
cmp r7, iobase(-r1) 
until equal ;good seg address 
until loop 7;no such seq 
endrepeat 
until equal ;good bus and seg . 
Ilda r5,=segince(r7) >to next possible segment 
endrepeat 2 
Ida r7,(r5) ;here with good bus and segment 
until rv ;iwhile quit ;no device here 
endrepeat 4% 
nop ;for backward compatibility 
and r7,=devtyp?magmod?hmodid?modid? HCO 7; VDH . 
until r7 = =modid igot a useable modem 
endrepeat 


sta r5,riddev ;this is the (new) device 
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sNow check if any output to be done 


4AFA 707D OOOC Ida r7,statom(rs) ;output busy? 
4AFE 806D ifnot quit 
4B00 4818 0007 Ilda ri,##<ridinb&lowmsk>_-~1 :low order bits for status 
4B04 301D O006 sta ri,statim(r5) ;hold input watchdog 
0000 .1if nz <ridinb&lowmsk>?<rldotb& lowmsk> 

Ida ri,#<ridotb&lowmsk>_-~1 ;output status to hold 
4B08 301D OO00C sta ri,statom(r5) 
4BOC 4F78 2000 tst r7,=mbusy ;device done? 
4B10 8A1D if zero 
4B12 4818 SFGE lda ri,=ridotb ;output buffer to use 
4B16 4078 4D58 call pkcoc,blitfex 
4B1A 8000 
4B1iC SA17 if success & equal ;buffer to send 
4BiE 8116 
4B20 4879 AO94 lda r7.=-<ridotb-hrdoff>(r1) ;bytes length 
4B24 4827 Ilda r2,r7 
4B26 AGF1 srl r,t swords length 
4B28 3078 S5SFGE sta r7.,ridotb rin first word 

repeat 
4B2C 517A SFGE sub r7,ridotb(-r2) ;checksum buffer 
4B30 88FE until loop 
endrepeat 

4B32 3278 SF72 addm r7,ridotb+tchkh ;adjust checksum 
4B36 7038 OOBO Ilda r3,maprel ;page buffer is on. 
4B3A 4C38 O1F6 ior r3,=<O/rldotb>_-4 ;OFFset packed 
4B3E 303D 0008 sta r3,starto(rs) 
4B42 4C18 8000 jor r1,=mendf ;just this buffer 
4B46 301D OOOA sta ri,endo(r5) ;start output 

endif 


endif 
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4B4A 707D 
4B4E 4F78 
4B52 8A42 
4B54 4818 
4B58 7078 
4BS5C 8B07 
4B5E 4078 
4B62 8000 
4B64 8A02 
4B66 6006 


4B68 902B 
4B6A 707D 
4B6E 8828 
4B70 4971 
4B72 4878 
4B76 4E78 
4B7A 8222 
4B7C 4821 
4B7E 483F 
4B82 AGBi 


4B84 6132 
4B86 49F2 
4B88 8BFE 


4B8A 4EBO 
4B8C 8119 
4B8E 7078 
4B92 4B78 
4B96 4E78 
4B9A 8112 
4B9C 7078 
4BAO 7678 
4BA4 810D 
4BAG 7078 
4BAA 3078 
4BAE 48FF 
4BBO 3878 
4BB4 4078 
4BB8 8000 
4BBA 8A02 
4BBC 90D5 


0006 
2000 


SEDE 
SEBO 


4BEA 


0004 


1FFF 
OO8E 


0002 


SEEO 
cooo 
cooo 


SEEG 
SEC2 


5EE4 
SEC4 


SEBG 
4BEA 
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i;Now check input 


Ilda r7,statim(rs) 
tst r7,=mbusy 
if zero 
Ida ri,=eridinb 
Ilda r7,pkest 
if minus ::pkcist 
call pkcic,bIltfex 


if fail 
return 
endif 
else 
lda r7,endi(r5) 
if minus 
sub r7,r1 
and r7,=O#-1 
if r7 < =bufend 


lda r2,ri 
Ida r3,=2(r7) 
srl 3,1 
repeat 
sub r3,(r2)+ 
sub r7,=2 


until minus 
endrepeat 
if r3 = =O 
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;check input 


; input idle 
; input buffer address 


;don’t rechecksum if in use 


:in midst of buffer. 
;continue processing 


7;Still hold buffer 


;endpointer 

;good transfer 

s length 

; ignore high order 
;okay size? 


;buffer pointer 


sinit checksum 


;good checksum 


Ida r7,ridinb+typh 


and r7,=paktyp 
if r7 = =rldtyp 


;Reload packet? 
;yes, process it 


Ilda r7,rldinb+cpsatd 


if r7 = pkemyi 


;for me 


Ida r7,ridinb+cpsats : 


sta r7,pkcnim 


lda r7,=pkctmx 
stab r7,pkerct 


;remember neighbor 
;retries max 


call pkcic,blitfex :;process this buffer 


if fail 
return 


;don’t read more 
shold off more input 


endif 


endif 
endif 


endif 
endif 
endif 
endif 
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4BBE 
A4BC2 
4BC6 


4BCA 
4BCE 
4BD0 
4BD2 
4BD4 


4BD6 
4BD8 


4BDA 
4BDE 
4BEO 
4BE4 


4BE8 


4818 
7418 
4838 


4078 
BA04 
6076 
4FFO 
4007 


9002 
SOFC 


7078 
8B05 
7018 
3O1F 


SOBF 


O1ED 
OOBO 
oosc 


OEDG 


O18A 


SEDG 
0002 


PAGE 8 
;Now start a new input 


Ida r1,=<O/#ridinb>_-4 ; 

jor ri,maprel ;packed start address 

lda r3,=<rbf len*words>+<rldinb-<rldinb&<O#-1_4>>>-hrdof f 
;buffer length plus fudge for XSIOIN 


call xsioin :start a new input 
if fail ;bad device 
fail return 7:s0 stop using it 
endif 
endif 
else ;got a QUIT from STATOM 
fail return ;chuck device 
endif 
Ilda r7,consol ;I have a console? 
if minus ;yes P 
Ilda r1,pkcadd ;display packet core address 
sta r1.%dreg1-%areqi(r7) ;in data lites 
endif 


endroutine ridsub 
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.comnt | 

PKCIC - process input buffers to Packet Core. 

Validates packets as they arrive, checking source IMP and Host if 
we are "locked", and current address and type if we are active and 
receiving a core message. Should be called repeatedly to process all 
parts of a core message; signals that more must still be done with 
the current buffer via a fail return. Arguments: Ri has the buffer 
address of the current input buffer, which is assumed to be mapped 
into map 2; inline is the proper state bit to turn on for BLT (either 
BLTEXT for a reload, or BLTFAK for packet input from Fake Host 2). 
Must be called with PKCLOK locked. 


4BEA 6027 routine pkcic, arg ri, inline r2, uses ri-r4 
4BEC 1076 
4BEE 7078 SEBO 1da r7,pkcst ;check state ; 
4BF2 SB66 ifnot minus yipkcist snot in midst of buffer 
4BF4 890D if odd 77Pkcact ;something happening 
4BF6 7078 5EC8 Ilda r7,pkclim 7so check if locked 
4BFA SAOA ifnot zero ;we are locked 
4BFC 7038 SEC6 lda r3,pkclha ;check handling type/host 
4C0O 7679 OO00C if r7 <> dsth(r1) } r3 <> pkth(r1) 
4C04 8104 
4CO6 7639 OOOA 
4COA 9102 
4coc 6006 return ;can’t take it 
endif 
endif 
endif 

4COE 7039 0010 Ida r3,cmark(rt) ;get password 
4C12 4B38 FEOO and r3,=cpmask 
4C16 4E38 B400 if r3 = =csetup ;got a setup 
4C1A 8125 
4C1iC 4848 FFE8 Ilda r4,=-psetul+pkth ;how much to copy 
4C20 4A9A add ri,=pkth ;and where to start 

repeat 
4C22 6031 lda r3,(ri)+ inext buffer word 
4C24 203C SEDE sta r3,psetuptpsetul(r4)+ ;into params 
4C28 88FD until loop 

endrepeat 
4C2A 7818 SEDS Idab ri,pkcfin ;Swap the line bytes 
4C2E 7838 SECD ldab r3.,pkclin 
4C32 3818 SECD stab ri,pkclin 
4C36 3838 5SEDS stab r3.,pkcfin 
4C3A 7018 BECE lda ri,m3/pkcfha 7a pkcefho 
4C3E 7038 BED2 Ilda r3,m3/pkcfid 
4C42 7048 BEDO Ida r4,m34pkcfim i; third-party sender? 
4C46 SAO7 ifnot zero syes 
4C48 3018 SEC6 sta ri,pkclha :7pkclho 
4C4C 3038 5ECA sta r3,pkclid ;copy address stuff 
4C50 3048 SEC8 sta r4d,pkclim 


endif 
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;end of setup processing 


4C54 4878 0089 Ida r7,=pkcact}bltcck}bltsdf ;make packet core go 

4C58 3478 SEBO iorm r7,pkest 

4CSC 4078 4F1iC call pkcupt,pkclto shold timer long 

4C60 0640 

4C62 90D5 return :all done with setup 
endif 


;here when got core packet or something else 


4C64 7078 SEBO Ida r7,pkcst ;if its core, must be active 
4C68 8904 ifnot odd & r3 = =cpcore :ipkcact ;if not active and a core 
4C6A 4E38 BGOO 
4C6E 9107 F 
4C70 4E38 B800 if r3 = #cabort :if it’s an abort instead 
4C74 8103 
4C76 7078 BEBO set r7 = m3¢pkest :stop packet core. 
endif 
4C7A 90C9 return 
endif 
4C7C 7038 5EC8 Ilda r3,pkclim :already locked? 
4C80 8A0C if zero ;no, so remember this one 
4C82 4879 OOOA Ida r7,=pkth(r1) ;where to copy from 
4C86 4838 FFFA lda r3,=-3*words sand how much 
& repeat 
4C8A 6047 Ida r4,(r7)+ ;;dsth pkth cpdl 
4C8C 204B SECC sta r4,pkclha+<3*words>(r3)+ 
4C90 88FD until loop ;;pkclho pkclim pkclid 
endrepeat 
4C92 7037 Ida r3,(r7) >7;cmark 
4C94 3838 SEDS stab r3,pkcfin ; line number to sender 
endif 
4c98 4A18 0012 add r1,=ccaddr :get to first piece 
4csc 7031 ida r3.(ri) ; its address 
4CSE 7638 SED6 if r3 <> pkcadd sone we want? 
4CA2 9105 
4CA4 9203 ifnot g ;no, too big? 
4CAG 3008 SEDA sta rO,pkcssf syes, force setup 
endif 
4CAA 90B1 return 
endif ‘ 
4CAC 7079 0002 lda r7,cctype-ccaddr(r1) ;get type and length 
4CBO 7578 SED4 eor r7,pkctyp 
4CB4 4B78 FEOO and r7,=pkctmk ; type must also match 
4CB8 S9A02 ifnot zero 
4CBA SOA9 return 
endif 


4CBC 901B else 
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4CBE 
4CC2 
4cCc4 
4CC6 
4cc8 


4CCA 
4CCE 
4CD2 
4CD6 
4CD8 
4cDdc 
4CEO 


4CE2 
4CE6 
4CEA 
4CEE 


4CF2 
4CF4 
4CF6 
4CFA 
4CFC 
4CFE 
4D02 
4D06 
4008 


4D0C 


4DOE 
4010 
4012 
4D16 
4D1A 
4DiE 
4D22 


7078 
8904 
6076 
4FFO 
4007 


4818 
3318 
4B78 
SAO6 
3478 
3008 
9096 


7018 
3218 
3118 
7018 


6031 
8A0D 
4078 
0640 
48FF 
3878 
7078 
8A03 
4078 


9080 


6041 
4873 
7178 
3278 
3178 
4F48 
SAE8B 


SDBC 


7FFF 
SEBO 
7074 


SEBO 
SEDA 


5SEB8 
5ED6 
SED8 
SEBA 


4FiC 


SEBG6 
S5ED8 


4F36 


SED6 
SEDS 
SED8 
OOF F 
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;Here if in the midst of a piece of core 


ida r7,bitst 
if odd ribiltact 
fail return 


endif 
Ilda r1,=-1?pkcist 
andm ri,pkcest 
and r7,=biters 
ifnot zero 
jorm r7,pkcst 
sta rO,pkcssf 
return 
endif 
Ida ri,pkedon 
addm r1,pkcadd 
subm ri,pkclen 
lda ri,pkcbfa 
endif 


:be sure BLT is done. 
snot yet 
;retain buffer 


;clear input pending bit 
;got some BLT error 
;Save errors for later 
;force a setup 


;update packet core address 


;and remaining length 
;where next piece starts 


;Get here with R1 pointing to next piece in buffer, 


;R2: BLTFAK or BLTEXT 


repeat 
Ilda r3,(r1)+ 
if zero 
call pkcupt,pkclto 


lda r7,=pkctmx 
stab r7,pkerct 
lda r7,pkclen 
if zero 
call pkcclir 
endif 
return 
endif 
Ida r4,(r1)+ 
lda r7,r3 
sub r7,pkcadd 
addm r7,pkcadd 
subm r7.pkclen 
tst r4,=pkclmk 
while zero 
endrepeat 


7skip zero length pieces 
;next piece address 

;end this buffer 

;hold timeout 


;and stick with device 


show much left in transfer 
;done it 
areset some things 


j;get type and length 
;address this piece 


;update PKC address anyway 
;and remaining length 
i length? 
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4D24 
4D28 


4D2A 
4D2E 


4D30 
4032 
4034 
4038 
4D3C 
4D3E 
4042 


4D46 
4048 


4D4A 
4D4C 
4D50 


4054 


4B48 
A3C7 
0000 


4948 
SBOE 


4024 
1056 
7059 
4078 
SA05 
4878 
3478 


6056 
SOBE 


48F3 
3478 
3008 


4008 


FEOO 


0040 


FFFE 
4E94 


8000 
SEBO 


5EBO 
SEDA 


4coc 
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sNow have R3: next piece address, R4: type and length, 
;R1: address of core data in buffer 


and r4,=pkctmk 

rji1or4,7 

.if nz newpke 

if r4 >= =anypro 
if r4 >= =plrcom 


eor r4,=plrcom?bIitnic 


endif 
iff ;nz newpkec 
sub r4.=pIrpke 
ifnot minus 


.ende 
ior r2,r4 
save r5 


Ida r5,-words(r1) 
call pkcblIt 
if success 
Ilda r7,=pkcist 
iorm r7,pkcst 
endif 
restore r5 
fail return 
endif 
lda r7,=pkcety}pkcact 
iorm r7,pkcst 
sta rO,pkcssf 


endroutine 


;just type 

inew-format packet core 
;legal for us 
:convention for common 


;Pluribus convention 
;get HiG type?? 


;set source type 

:;do our caller a favor 
:length of this piece 

;try to get BLT 

;got it 

; input being processed 


;to hold buffer 
7;signal type error 


yand force a setup with error 
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IMP .PKCORE; 1 PAGE 13 “6 


.comnt | 

PKCOC 

Check if any output from packet core to send. Call with R1: buffer 
address, R2: BLTFAK or BLTFEX, Map 2 set up. Returns fail if buffer 

is now in use (awaiting BLT completion), succeed with cc equal if 

a buffer to send (endpointer returned in R1), succeed with cc not equal, 
if nothing to send now. Must be called with PKCLOK locked. 


4058 1076 routine pkcoc,arg r1,inline r2,local r2,uses r2-r4,result ri 
4D5A 1026 
4D5C 6027 
4D5E 307E 0002 
4062 0281 sst %e ;assume we’ll send something 
4064 7078 SEBO Ida r7,pkcst 
4068 4F78 0200 tst r7,=pkcost ;Output in progress? 
4D6C SA2A ifnot zero ;yes, check BLT 
4DGE 7078 SDBC lda r7,blitst 
4072 8905 if odd istill busy 
4D74 6026 fail return 
4D76 6076 
4D78 4FFO 
4D7A 4007 

endif 
4D7C 4838 FD7F lda r3,=-1?pkcost?bl1 tsdf ;get BLTSDF from BLTST, 
4D80 3338 5EBO andm r3,pkcst ;clear BLT pending 
4D84 4B78 70F4 and r7,=blters}bltsdf ; interesting state 
4D88 3478 5EBO iorm r7,pkcst ;in case error 
4D8C 4F78 7074 tst r7,=blters 
4D90 8A16 if zero ;BLT completed okay 
4D92 4078 4FiC call pkcupt,pkcsto ;hold pke timer 
4096 OO0C8 
4088 7078 SEBS Ilda r7,pkcdon ;update pkc address 
4D9C 3278 SED6 addm r7,pkcadd 
4DAO 3178 SED8 subm r7,pkclen yand length 
4DA4 8A05 if zero ;done transfer 
4DAG 7078 BEBO lda r7,m34#pkest ;so clear state 
4DAA 7078 BECA lda r7,m34pkclid yand link (for TENEX) 

endif 

4DAE 48B0 lda r3,=0 ;terminate buffer with O 
4DBO 7018 SEBA Ilda ri,pkcbfa ;buffer end : 
4DB4 4078 4F2A call sendst :end buffer with state stuff 
4DB8 6026 return ;send this buffer 
4DBA 6006 

endif . 
4DBC 3008 SEDA sta rO,pkcssf ;send setup if trouble 


endif 
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4DCO 
40C4 
4DC6 


ADCA 
4DCE 
40D0 
4DD2 
40D4 
4DD6 
40D8 


4DDA 
4DDE 
4DE2 
4DE4 
4DE8 


4DEC 
4DFO 
4DF4 
4DF6 


4DFA 


7038 
SAIC 
4838 


607B 
9803 
2071 
SOFC 
4937 
9B02 
48B4 


7078 
4F78 
9AO05 
4838 
4918 


4078 
4F78 
9A03 
4078 


SODF 


BEDA 
FFDE 


SEDE 


SEBO 
7076 


B800 
0010 


4F2A 
7076 


4F36 


PAGE 14 
;Now check whether to send a setup 


lda r3,m3¢pkcssf ;setup send flag? 


ifnot zero 


lda r3,=-psetul show much to copy 
repeat 
lda r7,psetuptpsetul(r3)+ 
until loop ;leave with pkesrf 
sta r7,(ri)* ;into buffer 
endrepeat 
sub r3,r7 :Flip siaqn 
ifnot minus ;we’re receiving 
lda r3,=4 ;set his rate 
endif 


if pkest .bit. #blterstpkcety ;b1t got errors- send abort 


;return error flag 
;reduce size of packet 


set r3 = #cabort 
sub ri,#pkcsrf-psdata 


endif 
call sendst ; terminate buffer with state 
tst r7,=blters}pkcety 
ifnot zero :if reporting an error 
call pkccir ;stop further work 
endif ; 
return ;with buffer to send 


endif 
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4DFC 
4E00 
4E02 
4E06 
4E08 
4EOC 
4E10 
4E12 


4E14 
4E18 
4E1C 
4E20 
4E22 
4E24 
4E26 
4E2A 
4E2E 
4E32 
4E34 


4E38 
4E3A 
4E3C 


4928 
9B 1B 


4937 
3138 
4838 
607B 


2071 
SOFC 


SEBO 
SEDC 


018C 
0400 


5EB4 
OOAO 
FFOO 


SED4 
SED8 
0039 


0033 


0040 


5EB4 
FFEE 


SECE 


0200 


SED6 


4E94 


0200 
5EBO 


SEBO 
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;No setup to send, maybe send core 


Ilda r7,pkcst 
if odd ;;pkcact 
Ida r7,pkesrf 
ifnot minus 
Ida r3,wdis 


if r3 .bit. =totstb 
srt. 77,4 
endif 


lda r3,pkcotm 
sub r3,stime 
tst r3,= HFFOO 
ifnot zero 
save r5 
Ida r4,r2 
Idab r2,pkctyp 
Ilda r5,pkclen 
if rS > =pkcmax 


Ida r5,=pkemax 
endif 
S11 r2. Hs 
tor rS,r2 
rit. r2.7 
-if nz newpkc 
if r2 >= =anypro 


if r2 >= =plrcom 
eor r2,=plrcom?bIitnic 
endif 
.iff :nz newpke 
sub r2,=pirpke 
ifnot minus 
-ende ;nz newpke 


sub r3,r7 

subm r3.pkcotm 
Ilda r3,=-cmark-words 
repeat 


:ipkesrf 


;pkt core is active 
;we sending? 


vyes 
,if system is off 
;STIME is slow, so compensate 


;time for next send 


;reached it? 

;yes, get ready for BLT 
;protect caller’s r5 
:Save BLTEXT or BLTFAK 
;core type 

;remaining length 

;more than one BLT bite 


;one BLT bufferful 
; type to top 

;Plus length 

;type field 

;new pkc format 


;common memory 


;Pluribus convention 
;complain if H16 type 


;get next send time 


;copy length 


lda r7,psetuptcmark+words(r3)+ 


until loop 
sta r7,(ri)+ 
endrepeat 
add r7,=cpcore-csetup 
sta r7.(ri)+ 
Ida r3,pkcadd 
sta r3,(ri)+ 
sta r5,(ri)+ 
jor r4.r2 
call pkecbIit 
if success 
Ilda r7,=pkcost 
jorm r7,pkest 
endif 
else 
Ida r7,=pkcety 
jorm r7.pkcst 


;exit with setup flag 
;into buffer 


;core flag 
;piece address 


;store type,,length 
;set dest type 
;grab BLT 

;got it 


;mark output in progress 


;got a bad type 
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4E7E 3008 SEDC sta rO,pkesrf ;send a setup next time 
endif 
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4E82 
4E84 


4E88 
4E8A 
4E8E 


4ES0 


4E92 


6056 
4008 


9004 
4078 
o0ocs 


0201 


9093 


4D74 


4F1iC 
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;core message is ready to go or got error 


restore r5 
fail return 


;can’t send yet - too soon 


else 
call pkcupt,pkcsto 


endif 
endif 
endif 
rst he 


endroutine 


shold buffer in any case 


shold timer while outputting slow 


znothing to send 


a 
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PKCBLT 
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Packet Core subroutine to try to get BLT going. Call with R1: buffer 
address, R2: BLT source type, R3: PKC address, 
R5: BLT transfer size (words). Fail return if BLT is busy. Smashes R3-R5. 


4E94 1076 routine pkcbIt, arg ri-rs, 
4E96 7078 BDBA lock blitlok 
4E9A SAFE 
4E9C 7078 5SDBC 1da r7,bitst 
4EAO 8906 if odd :;bltact 
4EA2 3008 BDBA unlock bltlok 
4EAG 6O76 fail return 
4EA8 4FFO 
4EAA 4007 
endif 
4EAC 3018 5DC8 sta ri,bitbfa 
4EBO 3028 5DD6 sta r2,b)itsty 
4EB4 A3B1 rit rst 
4EB6 3038 5DCO_ sta r3,bltadd 
4EBA 3048 5DDA_ sta r4,bitdty 
4EBE 4858 OOFF and r5,=pkcImk 
4EC2 3058 5EB8 sta r5.pkcdon 
4EC6 A2D1 Sit rS..4 
4EC8 3058 5DC2 sta r5,blitsiz 
4ECC 4A51 add r5,r1 
4ECE 3058 5EBA sta r5,pkcbfa 
4ED2 7078 808C lida r7,m24#slfptr 
4ED6 3078 5DC6 sta r7,bitbfm 
4EDA 48FO Ida r7,=0 
4EDC 4B48 OO7F and r4,=pkctmk_- H9 
4EEO 4ECF if r4 = =anypro 
4EE2 8103 
4EE4 7078 SE28 lda r7,rckcon 
endif 
4EE8 3078 SDDE sta r7.bltdpi 
4EEC 3078 5DDC sta r7,bitdpm 
4EFO 3078 5DD8 sta r7,blitspm 
4EF4 7078 SEBO Ilda r7,pkcst 
4EF8 4B78 0088 and r7,=bltcck}bitsdf 
4EFC 4CF1 ior r7,=bltact 
4EFE 4F28 COOO if r2 .bit. =bltfextbitfak 
4FO2 SA02 
4FO4 4CF2 ior r7,=bitful 
endif 
4FO6 3078 5DBC sta r7,bitst 
4FOA 7078 OOAO ida r7,stime 
4FOE 4A78 0078 add r7,f#bitrat 
4F12 3078 SDBE sta r7,bIitto 


4F16 3008 BDBA unlock blitlok 


4F1A 6006 endroutine 


uses 


R4: BLT dest type, 


r3-r5 


ynow grab BLT 


must recheck 
;can’t get BLT 


;set buffer address 
; source type, 

; transform PKC -> BLT 

: address, 

; and dest type. 

;length in words 

show much in this transfer 
;now bytes 


;address after this piece 
:for next in buffer 
;buffer map 


mask for common transfers 
;get just type 
:its every proc 


;use stage RC consensus 
;dest proc masks 


;source procs too 

iget proper checksum state 
;and spares-checking 
;start BLT going 

:ibltsty ;we’re receiving. 


;give BLT some time to start up 
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-comnt | 
PKCUPT - updates PKCTIM using in-line argument 


4FiC 6017 routine pkcupt, inline ri, uses ri 

4F1E 1076 

4F20 7218 OOAO add ri,stime 

4F24 3018 5EB2 sta ri,pkctim ;when pkc should go idle 
4F28 6006 endroutine 

.comnt | 

SENDST 


Sends the last protocol word of the buffer (from R3), and 
appends the interesting state bits from BLT state (errors 
and BLTSOF if spare matches) and PKC state (all bits). 
Arguments: R1 is buffer pointer, R3 is last data word. 
Returns state word bits in R7. 


4F2A 1076 routine sendst, arg ri, arg r3, result r7 

4F2C 2031 sta r3.,(ri)+ ;last data word 

4F2E 7078 SEBO Ilda r7,pkcst ;BLT errors and pkc errors 

4F32 2071 sta r7,(ri)+ ;at end of message 

4F34 6006 endroutine 

4F36 1076 routine pkcclIr 

4F38 7078 BEBO Ilda r7,m3/pkcst ;read&clear current state 

4F3C 4F78 0100 if r7 .nbit. =pkcext ;fake called us 

4F40 8A03 

4F42 7078 BEBG Ida r7,m3/pkerct ;also force random reload 
endif 

4F46 7078 4A38 set pkclid = pkciid sreinit msg-id to default 


4F4A 3078 SECA 


4F4E 6006 endroutine pkcclIr 


( \ 455 
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IMP .PKCORE; 1 PAGE 19 
.comnt | 
TRYRLD 


Routine to start a packet core transfer when a page is lost. 
Called with R1: Type to reload. Inline argument is a pointer 
to the checksum word for the logical page to reload, i.e., the 
starting transfer address (limit word is assumed to follow it). 


4F50 1076 routine tryrld, arg ri, inline r2, local r3. uses ri-r2 
4F52 1036 

4F54 6027 

4F56 307E 0002 


4FSA 7078 BEAE lock pkclok 


4F5E SAFE 
4F6O 7078 SEBO Ilda r7,pkcst ;packet core in progress? 
4F64 9942 ifnot odd 7ipkcact 7no, proceed 
4F66 7078 SEBG6 Ilda r7,pkerct ;tries this device 
4F6A 8B1B if minus ;time to give up 
4F6C 48F2 lda r7,=pkctry ;tries per device 
4FGE 3878 SEBG6 stab r7,pkerct " 
4F72 4878 0142 Ilda r7,=pkccl] show much to clear 
repeat 
4F76 577F BEBC tst r7,m3/pkccla(-r7) 
4F7A 88FE until loop 
endrepeat 
4F7C 7078 O1A4 lda r7,1lclock :;some RTC 
4F80 7O7F 0004 lda r7,rtcsws-rtcadd(r7) ;my IMP number 
4F84 3878 SECS stab r7,pkcemyi*t1 
4F88 3018 SED2 sta ri,pkcfid ;type for neighbor to report 
4F8C 48FC lda r7,=pkcit! r;init table length 
repeat 
4F8E 5SO3F 4A3A lda r3,pkcitb(-r7) 
4F92 1O0BF 4A3A sta r3,@pkcitb(-r7) ;table-driven init 
4F96 88FC until loop 
endrepeat 
4F98 4878 0010 lda r7,=devine ;chuck this device 
4F9C 3278 SEAC addm r7,riddev 
endif 
4FAO 707A 0002 lda r7.words(r2) ;end address 


4FA4 4972 sub r7,r2 ; length 
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4FA6 
4FAA 
4FAE 
4FBO 
4FB4 
4FB8 


4FBC 
4FBE 
4FC2 
4FC4 
4FC8 
4FCA 
4FCE 
4FD2 
4FD6 
4FDA 
4FDE 
4FEO 
4FE4 


4FE8 


4FEC 
4FEE 


0000 


4C18 
4E18 
9107 
4B78 
4B28 
4C28 


AGFi 
3078 
A291 
3818 
A7TA1 
3028 
3008 
4878 
3078 
4078 
OOFO 
4878 
3078 


3008 


6036 
6006 


0040 
OO4F 


1FFF 
1FFF 
8001 


SED8 
SED4 


5EDG 
SEDA 
FFFF 
SEDC 
4FAC 


0101 
SEBO 


BEAE 
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;rest of TRYRLD 


.if nz newpkc 


if ri <> =anypro 
ior ri,=plrcom 
and r7,=Of#-14 
and r2,=O04%-1 
jor r2,=blitlog 
endif 
-iff ;nz newpke 


jor r1,=pirpke 
if ri <> =plrpkctanypro 


and 
and 
jor 

endif 

.ende ;nz newpkc 

srl or7,1 

sta r7,pkclen 

sit rt.4 

stab ri,pkctyp 

Pr) P24 

sta r2,pkcadd 

sta rO,pkcssf 

lda r7,=-1 

sta r7,pkcesrf 

call pkcupt,pkcrat 


r7,=O#-14 
r2,=O#7-1 
r2,=bltnic}bltlog 


lda r7,=pkcact}pkcext 
sta r7,pkcst 

endif 

unlock pkclok 


endroutine 


; end of IMP.PKCORE 
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;common transfer 
;keep within window 


;offset in page 
yand logical page 


;Old Pluribus convention 
;common reload 
;keep within window 


;offset in page 
; logical common address 


;words length 
;core type to get 
;word address 


;force a setup 


;receive a reload 
;setup time 


;start pkt core reload 


- ) 
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STAGEK.PLR; 1 PAGE 81 ° 
.comnt | 
Stage RC - Reliability page Code checksum 


Check results of rely checksum from stage RK. Failure 
triggers a reload and hangs. No consensus necessary. 

If debugging mode is turned on, the pseudo-halt bit in the 
snapshot area is checked, and if it’s on, the processor wil] 
hang itself right here. 


srcoo: 
repeat 


srest a while 


4FFO 4078 O7DC call wsleep 


4FF4 7018 80B0 Ilda r1,m2¢#comrel ;check results of stage RK. 


4FF8 890C if odd irely page is gone, reload it 
4FFA 4078 ODSE call sbad ; inhibit later stages. 
4FFE 7018 4ODE lda ri,limtabtreltyp ;known end of rely 
5002 3018 40B8 sta ri,tlimit ;for rely page here 
5006 48390 Ida ri,=reltyp ; logical page 
5008 4078 4F50 call tryrid,cksum ;arg is limits 
500C 40B6 
5O0E 3003 else 
5010 4078 ODS5O call sokay :all’s well 

endif 
5014 SOEE endrepeat 


7End of STAGEK.PLR 
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;Now for final patching of STAGE 

FCOO OOOO $FINKER 
40CO FEED 
O2FC FEED 
FCOO 0000 $F INSTAGE 
40DE 7D50 
40EO FFFF 
40E2 FFFF 
40E4 FFFF 
40E6 FFFF 
40E8 FFFF 
40EA FFFF 
40EC FFFF 
40FA 0001 
40FC 0001 
40FE 0000 
4100 4000 
4104 0010 
4106 0020 
4108 0030 
410A 0050 
410C 0000 
410E 0010 
4110 0020 
4112 OO2E 
4114 0001 
4116 E100 
4118 E200 
411A F100 
411C F200 
40BA 0000 
40BC 0000 
O31A O4DC 
0314 O00C8 
0316 0001 
0318 0001 
0320 EOOO 
0322 FOOO 
0324 8000 
0326 8000 


-iif p2, .outsym implod.sym 
OA1C .end wst ;start the loader code up 


82 SECONDS RUN-TIME 
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IMPOPS.PLR; 1 PAGE 1 


.title IMP Operating System 


.comnt | 

This file assembles the Operating System part of the IMP program. 
Included herein are the non-kernel part of STAGE, the non-IMP part. 
of DDT, and OPSYS (PID dispatch and some central routines). It is 
intended that this assembly not need redoing every time the IMP 
program is modified, thus saving assembly time in the long run. 

In addition, it forms a common base for the specialized IMP 
systems: the PSE IMP, the PTIP’‘s IMP, etc. 


7First get IMPLOD (IMP Loader) Symbols 
.insym IMPLOO.SYM 
;Now for some additional macros 


-insert "LPMAC" 
. INSRT LPMAC 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 
LPMAC.PLR;1 PAGE 1 


;LPMAC.PLR 
;Eric Roberts 10-Aug-78 


F This file contains macros used in loop 


;which do not easily fit into other categories. 


;Revision history: 


PAGE: 2 
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LPMAC.PLR;1 


PAGE 2 
:System initialization 


~ The STAGE and POPS systems call the routine 
;SYSINI as the initialization routine for the WARM 
tpage. The initialization system is table driven, 

rand there are a number of macros which allow additional 
s;initialization code to be inserted into the tables. 


. The principal initialization specification is 
igiven by the macro $INIT which has one of the following 
;general forms: 


$INIT X.v ;Initialize location X to 
;The value v 
$INIT X.1lVv r;Initialize the block of 1 


;Bytes beginning at X to the 
;Word value v 


; In addition, other macro forms are ieeaiiincaaiand for 
;other standard initialization functions. 


( 
IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 4 
LPMAC.PLR; 1 PAGE 3 
;The $INIT macro 
:The $INIT macro stores entries on the deferred 
sexecution list %ILST (see GENSUB). 
$LIST “%ILST ;Declare the %ILST 
$LIST %RLST ;Routine lists 
$LIST ZPLST ;And the PID list 
-MACRO $INIT ARG1,ARG2,ARG3 
.IF B <ARG3> 
$XINIT <ARG1>,2,<ARG2> 
hg x 
$XINIT <ARG1I>, <ARG2>,<ARG3> 
.ENDC 
.ENDM 
.MACRO $XINIT ADDR,COUNT, VALUE 
%M==<ADDR> _ - D13 :Get map portion of address 
$MAPCHK \%M :And see if it changed 
$ENTER %ILST,<ADDR> 
$ENTER %ILST,<COUNT> 
$ENTER %ILST,<VALUE> 
.ENDM 
.MACRO $MAPCHK MP 
.IF DF %IMAP’MP :Is this mapped? 
$DOPPAGE <Y%KEY==>,<KEY> ;Get the page key 
IF NZ %KEY-%IKEY ‘MP ;Same as last for this map? 
$ENTER “ILST,O ;Mark a map change 
$ENTER Y%ILST,%IMAP ‘MP ;And map address 
$DOPPAGE <‘ENTER “%ILST,>.<TYP> 
MIKEY ‘MP=%KEY 
. ENDC 
. ENDC 
.ENDM 
;Define initial keys and maps 
FCO2 %IMAP3==%MAP 1 
FCO4 %IMAP4==%MAP 2 
FCOG *IMAPS==%MAP3 


FFFF %IKEY3==~1 
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FFFF %IKEY4==-1 
FFFF %IKEYS==- 1 
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sInitialization routines (continued) 


;The macro below assembles the initialization routine 
:for constants 


-MACRO $RINIT 


-WORD INITLIST 7;Call the INITLIST routine 
$APPLY .WORD,%ILST ;Enter the initialization list 
-WORD NIL ;And terminate with a nil 
$LIST ZILST 

.ENDM 

-MACRO $PINIT 
-WORD INITPID :Initialize the BASE table 
$APPLY $PID1,%PLST ;Run through the list of PIDs 
-WORD NIL ;Use an end marker 
$LIST APLST 

. ENDM 


;Macro to enter a PID entry 
-MACRO $PID1 NAME 
.WORD $‘NAME 
.WORD NAME 
.ENDM 
;Macro to enter a new initialization routine 


-MACRO $IROUTINE NAME 


.IF Z NAME & HCOOO ;:Is this in local? 
$ENTER “ZRLST,<$IR1 LOCAL> 77:Yes, don’t change map 
ci FF 
$DOPAGE |FENTER “*RLST,<HIR1 |. |>| 

. ENDC 

FENTER ZRLST,NAME 

. ENDM 


FFFF M%LOCAL == -1 
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;Macro to build the init table 


-MACRO $SITABLE 


*FLG== 
$IFDF1 %ICHAIN, <~FLG==1> 
.IF Z %FLG 
ITABLE: 
eke 
*NDOT ==. ;:Save current position 
-IF 2 %ANDOT & HCOOO 7;1Check if it’s local 
Y¢NTYP==- 14 ;:;Don’t change page 
«TRF 
$DOPPAGE <%NTYP==>,<TYP> ;:Save the current page type 
. ENDC 
SAVEPAGE TEMP ;;Remember where we are 
PAGE %IPAGE ;:And go to old page 
PAGE DUMMY ;:We’re patching 
. =%1 CHAIN ;;Wherever we left off 
-WORD O,%NTYP.%NDOT ;:;Put in a jump block 
PAGE TEMP 
.ENDC 
. $APPLY <>,%RLST 
SAVEPAGE %IPAGE ;;Remember our page - 
*%ICHAIN==. 
-WORD NIL 7:End of ITABLE 
-WORD 0.0 }:Space for jump block 


$LIST “ZRLST 
$ENTER ZRLST.$RINIT 
$ENTER %ZRLST, FPINIT 


.ENDM 
-MACRO $IR1 PG . 
.IF NZ M%’PG + 1 :;Is this in common? 
$DOPAGE <%%PHYS == P%>,<> ;7Get present page. 
-IF NZ %APHYS - P%'PG 7;New one requested 
SAVEPAGE TEMP ;:Remember this page 
PAGE PG :7And go to the new one 
%NDOT ==. ;:Remember our position 
$DOPPAGE <%NTYPE==>,<TYP> ;;And our type 
PAGE TEMP 7;;Back to where we were 
.WORD O,%NTYPE, ANDOT ::And enter a jump vector 
PAGE PG ;:Now back once again 
. ENDC 


. ENDC 
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.ENDM 

$ENTER %RLST,FRINIT ;Always do this initialization 


FENTER “ZRLST,FPINIT 
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;Miscellaneous definitions 


-MACRO LOCKDEF NAME 
SAVEPAGE TEMP 


PAGE VARS ;Locks on vars page 
NAME==M3/. ;Locks defined through M3 
-BLKW 1 ;Leave space for lock 
SINIT M1#NAME, 1 ;Initialize the lock 
PAGE TEMP 

»ENDM 
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. insert "PROC" 
.INSRT PROC 
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;PROC.PLR 
;Eric Roberts 5S-Oct-77 


; This file contains the macros for defining 
;processes to run under POPS. 


;Revision history 


;198-Jun-78 ESR: 
a Rewrote file to include the notion of MESSAGE PROCESS. 


; 10-Aug-78 ESR: 
Added code to define process entities and primitives. 


; 15-Aug-78 ESR: 
; Restructured process entity mechanism to be current 
;with HSMIMP documentation. 


;28-Sep-78 ESR: ‘i 
: Redesigned INITFORK facility to provide for process 
;initialization. 


;14-Dec-78 ESR: 
: Added the CHAIN = xx directive to MESSAGE PROCESS. 


:4-Jan-79 ESR: 
. Fixed the interaction between MESSAGE PROCESS and 
;CLOCK processes. 


34-Apr-79 ESR: *** MAJOR REVISION *** 
‘ Revised the process package to correspond to the new 
;process design. : . 
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;Miscellaneous definitions 


DEAD STKPASS = HDEAD ;Password for stack checking 


IMP Operating System 
PROC.PLR;1 


0000 
0002 
0004 
0006 
0008 
OOOA 


0000 
0001 
0002 
0003 
0004 
0005 


PLURIBUS V2.9B 
PAGE 3 


25-Jun-87 11:22:42 


PAGE 13 


;Define Fork Control Block (FCB) entries 


STRUCT SYSFCB 
FCBSTK: 
FCBCHAIN: PTR(FCB) 


FCBSTATE: WORD 7Fork 
FCBSP: WORD 7Save 
FCBCODE: PTR(CODE) 

FCBRELY: PTR(FCB) 

FCBTIME: WORD 


ENDSTRUCT SYSFCB 


;Fork states 


F.LOCKED=0O :Fork 
F.ILLEG=1 7Fork 
F .RUNNING=2 :Fork 
F ..QUEUED=3 7 Fork 
F .WAITING=4 7Fork 
F .RQUEUED=5 7 Fork 


:Stack grows from here 
;Chain field 


state 
the stack pointer 


;Back pointer to code (in local) 
;Queue pointer for reliability 
;Time this was last completed 


is busy 

has been unlocked by Stage 

is running 

is on run queue 

is waiting for: event 

is running with event pending 
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0000 
FFF8 
FFFA 
FFFC 
FFFE 


PAGE 4 
;Define PROCESS macro 


;PROCESS <name>, [<args>] 
H Defines the beginning of a process. 
;The argument forms are: 


‘ FCBAREA = xxx 
; STACKLIMIT = xxx 


+ The actual process code is preceded by a 
;process data block which contains some constant 
;parameters of the process, which are given by 
;the structure below 


STRUCT PDBBLK 


WORD -4 ;Start four words early 

POBLIMIT: WORD ;Limit of the stack 

PDBOFFSET: WORD :Offset of the FCB from data block 
PDBPKOFF: WORD ;Packed version of PDBOFFSET 
PDBRATE: WORD ;Rate at which to check this fork 


ENDSTRUCT PDBBLK 
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;Actual PROCESS macro 


»-MACRO PROCESS NAME ,ARG1,ARG2,ARG3,ARG4,ARGS 
$STACKLIMIT == -1 
$FCBAREA == -1 
$RATE == D5000 
%*SRADIX == ARADIX 
%RADIX == D1O 
.IRP ARG, <ARG1,ARG2,ARG3,ARG4,ARG5> 
.IIF NB <ARG>, $O0PT ARG 
.ENDM 
*#RADIX == %SRADIX 
.IF LT $FCBAREA 
-IF LT $STACKLIMIT 
$STACKLIMIT == O 
. ENDC 
$FCBAREA ==$STACKLIMIT + D32 
. ENDC 
-IF LT $STACKLIMIT 
$STACKLIMIT ==0 
. ENDC 
.IF NZ $FCBAREA & HF 
-ERROR FCBAREA not properly aligned in PROCESS NAME 
» ENDC 
%'NAME=$FCBAREA+LSYSFCB 
$LCCHK NAME 
JSB R3,(R3) :Assume no initialization 
-“%INIT=. ; INITFORK will change this 
. ENDM : 
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;Process macro subroutines 


7 $LCCHK 
: Check to see that process header is in local 


-MACRO $LCCHK NAME 
-IF GE . - H4000 
A#OOT==. 
$DOPPAGE <%MAP==MAP> 
SAVEPAGE TEMP 
PAGE LCODE 
$PHEAD NAME 
LDA R7,%MAP 
STA R7,%MAPO 
JUMP %DOT 
PAGE TEMP 
cLEF 
$PHEAD NAME 
. ENDC 
.ENDM 


.MACRO $PHEAD NAME 
$STACKLIMIT 
$FCBAREA 
$FCBAREA _ -4 
<<fRATE * DIO> / D256> / DIO 
NAME : 
/ENDM 
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;OPTION routines 


H These macros are functionally identical to 
; those defined in GENSUB but work much better. 


-MACRO $0PT X 


%FLG==TRUE ;Assume argument if = 
SARGTST‘X :Check for blank arg 
-IF Z %FLG 
$'X == TRUE 
s IPF 
$‘X 
. ENDC 
.ENDM 
-MACRO $NO X 
$’X == FALSE 
- ENDM 
»-MACRO $ARGTST ARG 
.IF B <ARG> 
$F LG==FALSE 
sLFF 
%F LG==TRUE 
. ENDC 
. ENDM 
-MACRO $ ARG 
.IF NB ARG 
$ ‘ARG 
. ENDC 


.ENDM 
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;INIT headers 
-MACRO INITFORK 


-IF NZ . - .%INIT . 
-PRINT /INITFORK must immediately follow PROCESS line 


/ 
. ENDC 
.=.7-2 ;Back up over default code 
PUSH R3 ;Save our “caller” 
. ENDM 
-MACRO ENDINITFORK 
POP R3 7;Get back the return: 
JSB R3,(R3) ;And coreturn 


- ENDM 
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;Other PROCESS-related macros 
;The EXIT macro 
-MACRO EXIT NAME 
JMP LOOPMV 
$EXIT=. 
. ENDM 
»-MACRO ENDPROCESS NAME 
-IF NZ $EXIT~-. 
EXIT 
. ENDC 
.ENDM 
0000 $EXIT=0O 
;Macro to send a message to a process 


-MACRO POST PROC 


PAGE 


.-ERROR Message processes have been eliminated 


.ENDM 
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;Macro to allow sleeps inside a routine 


-MACRO SLEEP ARG1 
JUMP LOOPMYV ;Act like an EXIT 
-IF NB <ARG1> ;But allow ENTRY field 
SLP’ARGI1 
. ENDC 
-ENDM 


-MACRO STARTUP ARG1 
SLP’ARG1 
-ENDM 


-MACRO SLPENTRY NAME 
NAME: 
. ENDM 
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;Auxiliary routines (continued) 
;Macro to poke a process 


-MACRO POKE ARG1,ARG2 
.IF B <ARG2> 
POKE R7,ARG1 
TRF 
-IF DF $’ARG2 
LDA ARG1,/#$’‘ARG2 


EFF 
LDA ARG1,#ARG2 
. ENDC 
STA ARG1,@PID 
. ENDC 


. ENDM 
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;Define process primitives [WAIT, DISMISS, 


-MACRO WAIT STVEC 
SAVE STVEC 
CALL WAIT 
RESTORE STVEC 
-ENDM 


-MACRO DISMISS STVEC 
SAVE STVEC 
CALL DISMISS 
RESTORE STVEC 

. ENDM 


-MACRO WAKEUP NAME 
CALL WAKEUP, NAME 
-ENDM 


PAGE 22 


WAKEUP ] 
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;Define process primitives [FORK, ACTIVATE] 


«MACRO FORK NAME 


LDA R2,R1 ;Move arg to R2 

CALL ALLOC, SIZE %’NAME ;Allocate a block 

ACTIVATE NAME ;Do an activate 
.ENDM 


»-MACRO ACTIVATE NAME 
CALL ACTIVATE, NAME ;Let ACTIVATE routine do this 
. ENDM 
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-insert "STRIP" 
. INSRT STRIP 
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;STRIP.PLR 
;Eric Roberts 93-Apr-79 


: This file contains the macros for defining 
;strips to run under POPS. 


;Revision history 
39-Apr-79 ESR: 


4 Separated this file from the PROC.PLR file to diambiguate 
;the notions of STRIP and PROCESS (see HSMIMP #417). 
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0000 
FFFC 
FFFE 


PAGE 2 
;DefFine the STRIP macro 


:STRIP <name>. [<args>] 
: Defines the beginning of a strip. 
7The argument forms are: 


PID: = Sex 
SLOW CLOCK or FAST CLOCK 


: The actual strip code is preceded by a 
istrip data block which contains some constant 
;parameters of the strip, which are given by 
;the structure below 


STRUCT SDBBLK 


WORD -2 ;Start at .-4 offset 
PDBPID: WORD ;PIO level for strip 
PDBCHAIN: PTR(STRIP) ;Pointer to next timer chain 


ENDSTRUCT SDBBLK 
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;Actual STRIP macro 


-MACRO STRIP NAME,ARG1,ARG2,ARG3,ARG4,ARGS 

$PID == 
$CLKFLG==O 
-MACRO $CLOCK N 

$CLKFLG== 

%CCHN==P$ ‘'N 

P$‘N==NAME-4 
.ENDM 
. IRP ARG, <ARG1,ARG2,ARG3,ARG4,ARGS> 

. TIF NB <ARG>, $OPT ARG 
.ENDM 
$’NAME=$PID 
.IF NZ $PID 

-IIF MDF $%PLST, $ENTER %PLST.NAME 

oI FF 

-ERROR STRIP NAME has no declared PID level 
. ENDC 
$LSCHK NAME 
-MACRO ENDSTRIP NAME 

wF NZ SEXIT—.. 

EXIT 

. ENDC 

. ENDM 
. ENDM 
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;STRIP macro subroutines 


;$LSCHK 
; Check to see that strip header is in local 


-MACRO $LSCHK NAME 
.IF GE . - H4000 
%DOT==. 
$DOPPAGE <%MAP==MAP> 
SAVEPAGE TEMP 
PAGE LCODE 
$SHEAD NAME 
LDA R7,%MAP 
STA R7,%MAPO 
JMP %DOT 
PAGE TEMP 
.IFF 
$SHEAD NAME 
. ENDC 
.ENDM 
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;OPTION routines 


H These macros are functionally identical to 
; those defined in GENSUB but work much better. 


-MACRO $OPT X 


%F LG==TRUE i;Assume argument if = 
$ARGTST’X :;Check for blank arg 
e -IF Z %FLG 
$‘X == TRUE 
-IFF 
$'X 
.»ENDC 
.ENDM 
-MACRO $NO X 
$‘X == FALSE 
. ENDM 
-MACRO $ARGTST ARG 
.IF B <ARG> 
%F LG==FALSE 
eLEF 
#F LG==TRUE 
. ENDC 
.ENDM ‘ 
-MACRO $ ARG 
-IF NB ARG 
$ ‘ARG 
.ENDC 


. ENDM 
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;Auxiliary routines 


.MACRO $SHEAD NAME 
$ ‘NAME 
%CCHN 
NAME: 

.ENDM 


«MACRO $FAST DUMMY 
$CLOCK 1.6 
. ENDM 


-MACRO $SLOW DUMMY 
CLOCK 25.6 
.ENDM 
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;Other STRIP-related macros 
;The EXIT macro 
«MACRO EXIT NAME 
JMP LOOPMV 
$EXIT=. 
.ENDM 


0000 $EXIT=O 
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;Macro to allow sleeps 


-MACRO SLEEP ARGI1 
JMP LOOPMV 
.IF NB <ARG1> 
SLP‘ARG1 
-ENDC 
. ENDM 


-MACRO STARTUP ARGI 
SLP’ARG1 
.ENDM 


®uacRO SLPENTRY NAME 
NAME : 
.ENDM 


25-Jun-87 11:22:42 PAGE 32 


inside a routine 


;7Act like an EXIT 
7;But allow ENTRY field 
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;Auxiliary routines (continued) 
;Macro to poke a strip 


-MACRO POKE ARG1,.ARG2 
.IF B <ARG2> 
POKE R7,ARG1 
EF 
-IF DF §’ARG2 
LDA ARG1,##‘ARG2 
.IFF 
LDA ARG1,#ARG2 
- ENDC 
STA ARG1,@PID 
. ENDC 
.ENDM 
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0200 
80CO 


5BOO 


PAGE 1.3 


;Assign page parameters for DDT, V2 paqes 


ddtlod= H200 
v2ast=m2/pagebc ;V2 page origin 


.if df PSE 
ddtvst= H5B00 ;DDT and VHA vars 
iff ;Of PSE 


ddtvst= H5B00 :DDT vars 
.endc ;df PSE 


;This is the physical DDT page and V2 page 
CODEPAGE DDT, PHYSICAL DDTLOD, LIMIT DDTVST 
VARSPAGE V2 

;Now define the Logical Pages 


Defpage V2, org vast, limit m3 


Defpage DDTCode, map code, limit ddtvst, physical ddt, org * 


Defpage DDTVars. org ddtvst, limit m1 


;Get Stage Common code, DDT. and OPSYS code 


- INSERT "STAGEC" 
-INSRT STAGEC 


PAGE 34 
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FCOO 


40B8 
40BA 
40BC 
40BE 


FCOO 


0000 


7D50 
0000 
0000 
0000 


0000 


PAGE 1 
;STAGEC.PLR - Non-kernel Stages and associated Code 
7*** Stage Rely Page non-Kernel Code *** 


PAGE Relcode ;back to common code 
page Dummy 


SEA Ee reliability page Te EH 
;set up page limits, timeout table, init routine. etc. 


cpage O.rellod,relvst,relini,reltab,reltyp 


;set up dispatches for last few stages 
defents s!lcOO.smm00O,sidOO,saroo 


page RelCode ;to start of common area 
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Stage LC - Local memory Checksum 
Checksums all of local memory, including the kernel. If 


Bad checksum, try to reload (either from other procs or 
via external reload) 


;Maybe check my checksum against rest of system here? 


s1c00: ; Local memory Checksum. 

repeat 
5020 4078 OE10 call cksub, localc,. locend ; checksum local memory 
5024 O2F8 . 
5026 4000 
5028 8104 if equal ; cksum good. 
502A 4078 OD22 call sclrok ; pass this stage. ~ 
S5O02E 900D else ; cksum bad; fix somehow. 
5030 4078 OD2E call sfxbad : inhibit later guys and fix} 
5034 810A if equal ; we can fix} 

Trap 16,<;Stge LC: Local code cksum broken (H/S) - page 36> 
5036 EOOE 
5038 7028 40DC Ida r2,ihotim ; initial limit of local 
503C 3028 O2FA sta r2.hotlim > fix it in case broken 
5040 489F Ilda ri,=anypro ; destination type 
5042 4078 4F50 call tryrtid,localc ; try local reload 
5046 O2F8 
endif 
endif 


5048 SOEC endrepeat 
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SO4A 
504C 
5SO4E 
5050 
5052 
5054 


0000 
SF40 
60CO 
0000 
0000 
0000 
oooc 


PAGE 3 


;Stage MM - Prototype empty page 


imemt: O :iintime 
-<mi#pagebce> 77c0ksum 
mi#pagebc pa tlimit 
° ripginit 
O 3; topntr 
ie) ii typedk 


limemt=.-imemt ;length of this area 
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;Stage MM - Common Memory Management 


smm0OO: 
repeat : 
5056 48D0 lda r5,=0 ;current type, cmap index 
5058 7048 40FE lda r4,bsmapm ; low bus 
505C 7038 4100 lda r3,bsmapm+words shigh bus(ses) 
5060 7028 40A6 lda r2,memtot ; total pages in machine 
repeat 
5064 4813 lda ri,r3 ;assume higher bus 
5066 9904 if odd } r5 < ncodep ;hone, or doing code 
5068 7658 4104 
506C 8204 
SOGE 4814 Ida ri,r4 7so try lower bus 
5070 8902 if odd ;none, must use higher 
5072 4813 lda ri,r3 
endif 

endif 

tilda ri,rd ;set success, test ri 
5074 9903 ifnot odd ipage to try at all? 
5076 4078 OE8A call memtst ;this page exist? | 

endif 
507A 9SA2E if success ;exists or no page (bum}) 
507C 4078 5112 call smmsearch ; look for the needed page 
5080 9A04 if fail } ri <> cmap(rS5) ;not perfect 
5082 761D 5E40 
5086 9109 
5088 301D OOBO sta ri, lmap(r5) 750 that loader knows where 
508C 4078 OD2E call sfxbad ymust Fix now 
5090 8140 break ifnot equal ;no consensus 
5092 4078 5290 call sinmfix yrepair as required 


5096 9A3D break if fail ;couldn’t do it 
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5098 
509C 
SOSE 
50A2 
S5SOAG 
50A8 
50AC 
50BO 
SOB4 


SOB6 
SOBA 
SOBC 
50CO 
50C2 
50C6 
5OCA 
50CC 
50D0 
50D4 


201D 
990D 
3018 
7078 
SAFE 
4878 
4C7D 
3078 
4941 


7658 
810E 
7028 
4814 
4078 
4828 
4813 
4078 
4078 
9O1E 


OOBO 


FCOG 
AO8E 


FFOO 
FFFE 
AOBE 
410A 
4100 


5380 
8000 


5380 
OD22 


PLURIBUS V2.9B 
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endif 
sta r1,}map(r5)+ 
ifnot odd 


sta r1i,%map3 
lock r7.slflk 


and r7,= HOFFOO 
ior r7,=-2(r5) 
unlock r7,slflk 
sub r2,=1 
endif 
if rS = novarp 
Ida r2,bsmapm+words 
Ilda ri.r4 ;;0dd 
call smmsmash 
lda r2,=nmseg* H8* H200 
lda ri.rs ;;0dd 
call smmsmash 
call sclrok 
break 
endif 
endif 
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;set up our copy of maps 
:got a real page 

;get to it locked 

;now fix up SLFLK with type 


;just map, 100} bits 

;add type tco 

;and restore SLFLK 

;used a page 

;filled table 

7;end of lower bus 

;next unused page 

;kill its remaining stuff 
;also for higher bus(ses) 


;succeed stage 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 
STAGEC.PLR; 1 


50D6 
SODA 
SODC 
SODE 
SOEO 
SOE4 
SOE8 
SOEA 


SOEE 
SOFO 
5OF2 
SOF6 
SOFA 
SOFC 


5100 
5102 
5104 
5108 
510A 
510C 


510E 
5110 


4E18 
9113 
4E13 
8108 
4A38 
4E38 
8103 
4838 


4E14 
8108 
4A48 
7648 
8103 
4848 


4E34 
8106 
7658 
8203 
EOOF 
9002 


SOAB 
90A3 


FFFF 


0200 
8000 


FFFF 


0200 
4100 


FFFF 


4110 
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if ri <> =-1 


if ris rz 
add r3,= H200 
if r3 = =nmsegt D8&* H200 
Ilda r3,=-1 
endif 
endif 
if ri =r4 


add r4,= H200 
if r4 = bsmapm+words 


Ilda r4,=-1 
endif 
endif 
endif 
if rd = r4 


if r5 < nrequp 


Trap 17,<:;:Stage MM: Not 
break 
endif 
endif 
endrepeat 
endrepeat 
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;used a real page 
;just used highest page 


ynext higher page 
; last page 


;just used lowest page 


;get the next higher 
;end of low bus 


:was it last? (both = -1) 
;too few found? 


Enough Memory (H) - page 40> 
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STAGEC.PLR; 1 


5112 


5114 
5118 
S11A 
511C 
5120 
5122 
5126 
5128 
512A 
512E 
5132 
5134 
5138 
513A 
S13E 


5140 
5142 
5146 
5148 
514C 
514E 
5150 
5152 
5156 
5158 


1076 


4E18 
93160 
48F1 
7658 
9220 
7658 
820E 
4875 
7178 
TOT7F 
9904 
7628 
9Cc04 
4818 
6006 


FFFF 


4104 


4106 


4104 
OOBO 


4114 


FFFF 


9010 
7078 
9A0C 
7658 
8CO9 
4E14 
8107 
7078 
9A04 
4818 FFFF 


5E3E 


4110 


0O1B2 


PAGE 6 


;Stage MM Subroutines 


;SMMSEARCH ~- check proper page for type, 
;1f this page isn’t needed or wanted, 
search for a good copy, 


;If not okay, 


routine smmsearch, arg ri/r3-rs, 


te PL <> SoA 


jda r7,=1 
if r5 >= ncodep 


if rS < nsparp 


lda r7,r5 

sub r7,ncodep 

lda r7,1map(r7) 

if odd } r2 <= ndvars 


Ilda r1,=-1 
return 
endif 
else 
if bufflg & r5 > nrequp 


if ri = 


r4 & mysegst6 


lda ri,=-1 
return 


PLURIBUS V2.9B 25-Jun-87 
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checksum, quits. 

set R1 to -1, return. 

a spare, and a free page 
result r1, uses mi 
;no bother if no page to use 


;assume no spare initially 


;doing a spare? 


;see if there’s a main page 
;no page or too few free 


. 


7;SO no allocate any 


;check for M/I configuration 


;don’t use O mem & optional page 


i:this is O bus & 6000 exists 


;yes, no allocate 


IMP Operating System 
STAGEC.PLR; 1 


515C 


51SE 


5160 
5164 
5166 
516A 
516E 
5170 


SOF 1 


48F4 


3078 01C4 
48F14 
3078 O1C2 
3078 O1C6 
48FO 
3078 O1C8 


PLURIBUS V2.9B 
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endif 
endif 
Ilda r7,=1 


endif 
endif 


sta 
lda 
sta 
sta 
lda 
sta 


r7,smmspa 
r7.=1 
r7.smmok 
r7,smmfre 
r7,=0 
r7,smmf ty 
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no spare yet 


;remember main as spare 


7no page found yet 
;nor free page 


;worst type for free page 


201 
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STAGEC.PLR;1 


5174 
5178 
S17A 
517C 
S17E 
5182 
5184 
5188 
518C 
S18E 
5192 
5194 
5196 
S19A 
519E 
S1A0 


51A2 
51A6 


51A8 
51AC 
S1AE 
51B2 


51B4 
51B6 
51B8 


SiBA 
51BE 


4078 
8A21 
1016 
1026 
7028 
4814 
4078 
4828 
4813 
4078 
6026 
6016 
7078 
7378 
830B 
48F8 


S65F 
S2FE 


765F 
8004 
4818 
90C6 


6076 
4FFO 
4007 


7078 
990D 


51DA 


4100 


5272 
8000 
5272 


01C2 
01C4 


4102 


410C 


FFFF 


01C4 


save ri-r2 


Ilda r2,bsmapmt+words 

Ilda ri,r4 7 70dd 

call smmscan 

Ida r2,=nmseg*t H8* H200 
lda ri,r3 7 :0dd 

call smmscan 

restore ri-r2 


lda r7,smmok 
and r7,smmspa 
if odd 
lda r7,=Immbas 
repeat 
until r5 >= smmbas(-r7) 


endrepeat 
if r5 > smmins(r7) 


Ida ri,=~1 
return 
endif 
endif 
fail return 


endif 
lda r7,smmspa 
ifnot odd 


11:22:42 PAGE 43 


PLURIBUS V2.9B 25-Jun-87 
PAGE 7 
call smmcheck ;check default page 
if fail ;all is not well 


iwant these later 


slimit of low bus 

;now look at rest of pages 
;check low pages 

:last page in system.+ 200 
ynow for hiah bus(ses) 


:found page if any 

;and found spare 

;no page nowhere 

:for list of categories 


;where we are 


;got min this type?. 


syes. so all’s well 


;didn’t succeed anyway 


;target a spare for a good page? 
syes 


203 
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STAGEC.PLR;1 PAGE 7.1 
51CO 3078 FCO2 sta r7,%map1 :get to main page 
51C4 7078 SOB6 Ilda r7,mi#cksum zits checksum 
51C8 3018 FCO2 sta ri,%map1 ;back to spare 
51CC 7178 4104 sub r7,ncodep ;this should be spare’s checksum 
5100 7678 GOB6 if r7 <> mt#cksum 
51D4 9102 
5106 E025 Trap 45,<;Spare pg cksum differs (H/S) - page 44> 
endif . 
endif 
endif 


51D8 SOB3 endroutine 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 45 
STAGEC.PLR; 1 PAGE 8 


;SMMCHECK - check given page’s type. checksum, and vafiables. 


51DA 1076 routine smmcheck, arg r1, arg r5, local r2-rd4 
51DC 1026 
S1DE 1036 
51EO 1046 


51E2 4875 Ilda r7.r5 ;type we want 
51E4 7658 4104 if r5 < ncodep ; looking for code? 
51E8 8203 
S1EA 7278 4104 add r7,ncodep :yes, accept spare 

endif 
S1EE 4828 FFFF lida r2,=- itype if QUIT 
S1F2 7028 GOBE Ida r2,mi#typedk ; type of target page 
5iF6 8026 if nquit & r2 = rS } r2 = r7 ;right type or spare? 
5iF8 4£25 
5SiFA 9103 
S1FC 4E27 
SiFE 8122 
5200 4EDO if rS <> =reltyp } ri >= maprel ; ignore bad com kernels 
5202 8104 
5204 7618 OOBO 
5208 921B 
520A 1056 save r5 
520C 4078 OE£10 call cksub,mt#cksum,m2 ;do its checksum 
5210 GOB6 
5212 8000 
5214 6056 restore r5 
5216 8114 if equal 
5218 4078 S39E call smmqch ;check page for quits 
521C 7658 GOBE if rS = mi#type4k :find perfect page? 
5220 8107 , 
5222 3018 01C2 sta ri,smmok ;remember it 

return 


P Operating System PLURIBUS V2.9B 25-Jun-87 
STAGEC.PLR; 1 


5226 
5228 
522A 
522Cc 


522E 
5232 
5234 
5236 
5238 
523A 
523C 


523E 


6046 
6036 
6026 
6006 


3018 01C4 
6046 
6036 
6026 
6076 
4FFO 
4007 


4828 FFFF 


PAGE 8.1 


endif 
sta ri,smmspa 
fail return 


endif 
endif 
Ilda r2,=-1 
endif 


11:22:42 PAGE 46 


;no, remember spare 


7;Signal bad type 
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STAGEC.PLR; 1 


5242 
5246 
5248 
524C 
524E 
5252 
5254 


5258 


525A 
525C 


5272 


5274 
5276 


5278 


7078 
9B15 
7628 
9206 
7628 
8203 
7128 


4E25 
8203 
4828 


4EAO 
9203 
4E27 
8C05 
3028 
3018 


SOE 1 


1076 


4811 
9930C 


4078 


01C8 
4104 
4106 


4104 


FFFF 


01C8 
01C6 


OE8A 


PAGE 9 
lda r7,smmfty ;type of free page > 
ifnot minus ;no free pade yet 


if r2 >= ncodep & r2 < nsparp :spare type? 


sub r2,ncodep ;yes, count it like code 

endif 

if 2 <= 25 i type we’ve already seen? 
Ida r2,=-1 ;yes, can smash 

endif : 

if r2< =O} r2>r7° :3smmfty ;better free page? 
sta r2,smmfty ;save its type 
sta ri,smmfre ;and page 

endif 

endif 


fail return 

endroutine smmcheck 

7; SMMSCAN 

;Scan a range of pages, checking for useful types 
;Calls SMMCHECK to do all the work 

;R1,R2 are limits of search 


routine smmscan,arg ri-r2,arg r5 


Ilda ri,ri ;got a range to search? 
ifnot odd ;if any to check 
repeat 
call memtst ;this page there? 


if success ;yes, so check it out 
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STAGEC.PLR; 1 PAGE 9.1 
527C 9AO05 
527E 4078 5S1iDA call smmcheck 
5282 4078 O7DC call wsleep ;rest occasionally 
endif 
5286 4A18 0200 add r1,= H200 
528A 4£12 until ri = r2 
528C 81F6 
endrepeat 
endif 


528E 6006 endroutine smmscan 


‘ 
IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 49 
STAGEC.PLR;1 


5290 
5292 
5294 


5296 
5298 
529A 
529C 
52A0 
52A2 


52A6 
52A8 
5S2AA 
S2AE 
52B0 
52B2 
52B4 
52B8 
52BC 
52C0 


1076 
1016 
1026 


4811 
9955 
0888 
7028 
8903 
7028 


4E12 
9139 
7078 
990A 
4E17 
9108 
3078 
3018 
4078 
1F4C 


01C2 


01C4 


01C6 


FCO2 
FCO4 
534C 


PAGE 10 


;SMMFIX - Stage MM routine to move memory around as needed 
;Called after achieving consensus. Movement is governed by the 
; local variables SMMOK, SMMSPA, and SMMFRE. If the missing page 
;is a code page and there is no good copy or spare, trigger a 
;reload of that page by calling TRYRLD. Repair CMAP when done. 


routine smmfix, arg ri, arg r5, local <ri-r2>, uses <mi-m2> 
jlda ri,ri 
ifnot odd ;got a target page 
inh .L4 ;allow us lots of time 
jda r2,smmok ;go0d page if any 
if odd ;none, maybe spare 
Ida r2,smmspa 
endif 
if ri <> r2 ;must move, clear, or reload 
Ilda r7,smmfre :;free page to smash? 
if even & ri <> r7 ;yes, and we should move 
sta r7,%map1 ;dest page 
sta r1,%map2 ;source 
call smmcop,O/-intime ;and move them 


endif 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 50 
STAGEC.PLR; 1 PAGE 11 
52C2 3018 FCO2 sta ri,%map1 :target is now dest 
52C6 4822 Ilda r2,r2 7:smmok smmspa 
52C8 9907 ifnot odd ;got a page to copy 
52CA 3028 FCO4 sta r2,%map2 ithis is source page 
52CE 4078 534C call smmcop,O/-intime sand move it 
52D2 1F4C : 
52D4 9023 else 
5206 7658 4106 if rS < nsparp ;must reload us 
52DA 8213 P 
52DC 4078 OF88 call fixjif 
52EO 4815 Ilda ri,rs :type to load- 
52E2 48FO Ilda r7,=0 
52E4 3078 60B4 sta r7,mi¢intime ‘ 
52E8 707D 40DE lda r7.limtab(r5) ;fix up target 
52EC 3078 6GOB8 sta r7,mi#tlimit 
52FO 4078 4FSO call tryrld.mi#cksum ;start external reload 
52F4 6OB6 
52F6 6026 fail return :force MM to quit now 
52F8 6016 ; 
52FA 6076 
52FC 4FFO 
52FE 4007 
endif 
5300 3018 FCO4 sta r1,%map2 ;this is also source 
5304 3018 FCO6 sta ri,%map3 ;and will be cleared 
5308 4078 534C call smmcop,m3-mi+<O/#-int ime> :by using map3 for compare 
530C SF4AC 
S530E 48AC Ilda r2,=limemt :set up the type header, etc. 
repeat 
5310 SO7A SO4A lda r7,imemt(-r2) 
5314 307A GOB4 sta r7,mi#/intime(r2) 
5318 88FC until loop 
endrepeat 
endif 


endif 
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IMP Operating System 


STAGEC.PLR;1 


S31A 
S31E 
5320 
5322 
5326 


532A 


3018 
4EDO 
8105 
3018 
3018 


4875 
7178 
3278 
3178 


EOO3 


4078 
4078 


301D 
6026 


6016 
6006 


FCO2 


FCOO 
40B0 


60BE 
60BE 
SOBS 


OF88 
0O7DC 


5E40 


PAGE 11.1 


sta ri,%mapi 
if rS5 = =reltyp 


sta r1,%mapo 

sta ri,comrel 
endif 
Ilda r7,r5 
sub r7,mi#typedk 
addm r7,mi#typedk 
subm r7,mi#cksum 
Trap 3,<;:Ctd STAGE 


call fixjif 
call wsleep 
endif 
sta ri,cmap(r5) 


endroutine 


PLURIBUS V2.9SB 25-Jun-87 11:22:42 PAGE 51 


;get to target page 
;(nece?) 


:go run there}} 


;adjust type if needed 


mem mgmnt--OK if Strtup/Rstrt (H) - page 51> 


;now take a rest, fix maps 


ifinally fix cmap 


IMP Operating System PLURIBUS V2.9B 25 
STAGEC.PLR; 1 


534C 
534E 
5350 
5352 
5354 


5358 


535C 
5360 


5362 
5366 
536A 
536C 
536E 


5372 


5376 
5378 


537A 
537C 
S37E 


1076 
1016 
1026 
6027 
3O7E 


4818 


5079 
8001 


107A 
767A 
8002 
9105 
7048 


4048 


4E90 
81F2 


6026 
6016 
6006 


0004 
1F4C 


80B4 


60B4 
60B4 


0064 


OAIC 


PAGE 12 


;SMMCOP - routine to copy 
;in line argument adds an 


-Jun-87 11:22:42 PAGE 52 


or clear a page. Clears if the 
offset from map 1 to map 3. Copies 


;from map 2 to map 1! or 3. 


routine smmcop, local <ri 


lda r1,=O#-intime 


repeat 
Ilda r7,m24intime(-r1) 
ifnot quit 
endif 


sta r7,mi#fintime(-r2) 
cmp r7,mif#intime(r2) 
if quit } NEqual 


lda r4,quitad 
; Trap 57,<;Stage MM: 
; Disable the following, 
: Ilda ri,mi#slfptr 
; call memdis 
jsb r4,wst 
endif 
until ri = =O 


endrepeat 


endroutine smmcop 


; SMMSMASH 


-r2>, inline r2 


;total to copy 


;source word 
:ignore quits 


;store it away 
:check (and clear) word 
; trouble 


;Note failing location 
Copy/clear failed (H/S) - page 52> 
as MOS memories fail on read-after-lock 
; the bad page 
:stop using the page 
yand restart 


;Clobber the TYPE4K words on all the rest of the pages 


;within the given range. 


R1-R2 specify range 


routine smmsmash,arg ri-r2 


P Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 53 
STAGEC.PLR; 1 


5380 


5382 
5384 


5386 
538A 
538C 
5390 


53394 


5398 
539A 


539C 


1076 


4811 
9390C 


4078 
SA05 
4878 
3078 


4A18 


4E12 
81F6 


6006 


OEBA 


FFFF 
6OBE 


0200 
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lda ri,ri 
ifnot odd 
repeat 
call memtst 
if success 


Ida r7,=-1 
sta r7,mi#type4k 
endif 


add r1,= H200 
until ri = r2 


endrepeat 
endif 


endroutine smmsmash 


;check range start 
;some to smash 


; this page exist? 
syes 

:invalid type 
;Clobber paqge 


;next page 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 54 
STAGEC.PLR; 1 PAGE 13 


.comnt | 
SMMQCH - check unchecksummed part of page in ri for 
quits. r2 points at first word to check. 


Takes page in r2 and scans all of the part after the checksummed 
region specified by the cksum block for quits. Fix if find any. 
Disable the bad page and restart if unrecoverable error. 


S3SE 1076 routine smmqch,arg ri-r2,uses r2 
53A0 4F28 1FFE repeat while r2 .bit. =packm 
53A4 SAOE 
53A6 4078 O7DC call wsleep 
S3AA 3018 FCO2 sta ri,%map1 
repeat 
53AE 6072 Ilda r7,(r2)+ : load a word 
53BO 8002 if quit 
53B2 9003 
53B4 4078 53D0 call smmefx :diagnose QUIT 
endif 
53B8 4F28 OOSE while r2 .bit. = H3E 
53BC 8AF9 
endrepeat 
53BE SOF1 endrepeat 
53CO 4828 6OB4 lda r2,=mi#intime 
53C4 6072 lda r7,(r2)+ ;check INTINE too} 
53C6 8002 if quit 
53C8 9003 
53CA 4078 53D0 call smmqfx ;look at its QUIT 
endif 
S3CE 6006 endroutine smmnqch 


.comnt | 
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STAGEC.PLR;14 


SMMWRD 


PAGE 13.1 


- check one word that got QUIT and fix. 


Call with ri current page, r2 pointing 2 past word. returns if 
quit fixable; disable memory and restart if couldn’t fix quit. 


53D0 


53D2 
53D4 
5306 
53D8 
S3DA 


53DC 
53E0O 


53E2 


1076 


48FO 
1072 
8006 
6772 
8004 


3078 
6006 


EO27 


page 55 


53E4 


53E8 


4048 


SOFC 


60B4 


OAIC 


routine smmqfx,arg ri-r2 


Ida r7,=0 
sta r7,(-r2) 
ifnot quit 
t5t 77,4 2)+ 
ifnot quit . 
; Trap 46,<;fixed bad mem parity (H) - page 55> 
sta r7,mi#intime 
return 
endif 
endif 
Trap 47,<;Solid mem parity err *** CALL BBN MAINT *** (H) - page 55> 


jsb r4,wst ;and restart 


endroutine smmqfx 


IMP Operating System PLURIBUS V2.9B 25-Jun-87. 11:22:42 PAGE 56 
STAGEC.PLR; 1 PAGE 14 
.comnt | 


Stage ID Discover the 1/0 

Look for I/O interfaces in common. Build a bit-table 

of what ones exist in useio, subject to removal in 

iokill. Don’t use a device if its PID isn’t there. 
prohng gives processors to never run (they hang here). 


sidoo: ; 1/0 Discovery Stage. 

repeat ; forever 
S3SEA 48A6 Ida r2,=nseqs-2 ; last segment in table first 

‘ repeat ‘ 
S3EC 704A 4116 Ilda r4,iobase(r2) ; calculate address of pid 
53FO 481C 0002 lda r1,=pidrel(r4) 
53F4 4B18 F802 and r1,=iomask}pidrecl P 
53F8 48BO Ilda r3,=0 > initial device bit map. 
S3FA 48FA Ilda r7,=pidtot ; length of pidget table 
repeat 
53FC SG1F 0174 until ri = pidget (-r7) ; found pid for device 
5400 9102 
5402 88FD until loop 
endrepeat 
5404 8114 if equal :;got a PID for this one 
5406 4858 0020 Ilda r5,= H20 ; all devices in segment 
repeat ; look for next device. 

540A 501D OEB6 lda ri.bittab(-r5) ; bit for next device 
S40E 771A 411E ifnot rf .bit. iokill(r2) ; device not killed. 
5412 8AOB 
5414 4815 lida: Pd. PS ; calc. device address. 
5416 A293 sli rt.3 : device offset. 
5418 4A14 add ri,r4 ; add segment base. 
541A 7011 Ida ri,(r1) ; device there? 
541C 8004 ifnot quit : yes. 
541E 743D OEBG ior r3,bittab(r5) ; set its bit. 
5422 9003 else ; no device, rest awhile. 


call wsleep ; quit => rest. 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 57 
STAGEC.PLR;14 PAGE 14.1 


5424 4078 O7DC 


endif 
endif 
5428 4EDO until r5 = =0 ; until done this segment. 
542A 81FO 
endrepeat 


endif 


542C 4078 O7DC call wsleep : catch up on sleep. 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 58 
STAGEC.PLR;1 PAGE 15 


r3 = our view of useio. 


5430 753A SE98 eor r3,useio(r2) ; we match system? 
5434 S9A20 ifnot zero : no, our useio <> system useio. 
5436 773A 5E98 if r3 .bit. useio(r2) ; system see things. we don’t? 
543A SAO3 
543C 4078 ODSE call sbad : yes, hang later stages now. 
endif 
5440 7078 OOA8 lda r7,procbt ; my vote 
5444 7478 5E96 ior r7,iofix ; get Fixit word 
5448 3078 SES6 sta r7,iofix ; include my vote in fixit 
544C 7048 SE9O Ilda r4,iocon ; consensus word 
5450 4874 and r7,r4 ; ignore dead voters 
repeat ; cale. how majority votes. 
5452 4B4C FFFF and r4,=-1(r4) ; remove one voter. - 
5456 4B7F FFFF and r7,=-1(r7) ; and one vote to fix 
545A SA04 until zero ; no more votes to fix 
545C 4B4C FFFF and r4,=-1(r4) > now another pair of voters 
5460 BAFS until zero ; no more voters left. 
endrepeat 
5462 4ECO if r4 = =O ; Majority votes to fix 
5464 8107 
5466 3048 G20A sta r4,sidflg :signal I/O config change 
546A 3048 SES6 sta r4,iofix ; restart fixit to stop race 
S46E 353A S5SE98 eorm r3,useio(r2) > give the system our picture. 
endif : 
5472 9011 break ; restart this stage 
® endif 
5474 49A2 sub r2,=2 ; select next i/o segment 
5476 8BOE if minus snone left 
5478 4078 ODSO call sclear > take our bit out of fixit. 


547C 7078 OOA8& lda r7,procbt ; do i exist? 
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5480 
5484 
5486 
548A 
548C 


5490 


5492 


5494 


7778 40C8 
SA04 
4078 OD3E 
9003 
4078 OD50 


3002 


SOAD 


SOAB 


PLURIBUS V2.9B 25-Jun-87 
PAGE 15.1 
if r7 .bit. prohng 
call sbad 
else 
call sokay 
endif 
break 
endif 
endrepeat 


endrepeat 


11:22:42 PAGE 59 


; me disabled past here? 


; Yes, hang later stages. 
me enabled, so be happy. 
;let next stage run 
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Stage AR - find any un-running processors and get them 
loaded and Started 
ampman, ampsys and amptry are the current state of defined 
amputees. the abus word gives processor buses which 
should be amputated and the aproc words give the processors 
that should not be started up 
proior is ior of 3 aproc words, busior of abus words 


saroo: 
repeat 
5496 4078 O7DC call wsleep 
549A 7038 SDBC jda r3,bIitst ;bIt busy? 
S49E 9938 ifnot odd ribltact 
54A0 7028 SE34 Ilda r2,locfix ;unhappy procs 
54A4 SAO7 ifnot zero ;are there any? 
54A6 4078 55C8 call locbIit,bIl tact, locfix,memcon 
54AA 0001 
5S4AC 5E34 
S4AE SES6 
54B0 902F else 
: look to see if any processors need starting from time to time 
. do this if BLT process is idle and no one hung in stage LC 
54B2 7028 SEAO Ida r2,prtime ;time for processor stuff? 
54B6 7038 OOAO Ilda r3,stime :system time 
54BA 4923 sub r2,r3 
5S4BC 4F28 FOOO tst r2,= HFOOO 
54CO 9A27 ifnot zero ;time now? 
54C2 7078 0160 lda r7,b1tmyc ;do nothing if debug-halted 
54C6 8906 if nodd } debugm .nbit. procbt ;okay to restart 


54C8 7078 O30C 

54CC 7778 OOA8 

54D0 BAF P 
54D2 4A38 0078 add r3,=prrate :set time ahead now 
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5406 
S4DA 
S4DE 
54E2 
54E4 
S4E8 
54EC 
54FO 
54F2 
54F6 
54F8 
5S4FA 
S4FE 


5500 
5504 
5508 
S50A 
550C 


3038 
7048 
7018 
4c41 
7448 
4D48 
7348 
SAOF 
4F48 
9AO05 
A291 
4C18 
4B41 


3048 
4078 
0401 
O17E 
5E28 


5EAO 
SD66 
4096 


40c6 
FFFF 
5064 


5555 


5555 


O17E 
55C8 


endif 
endif 


sta r4,temp1 
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PAGE 16.1 
sta r3,prtime 
Ida r4,proior i if 
Ida r1,segcon ;who’s already running 
ior r4,ri ; ignore the running guys 
jor r4,prokil 
eor r4,=-1 ;see who's left 
and r4,procex ;and who exists 
ifnot zero yanybody? 
tst r4,= H5555 
ifnot zero sany even to do? 
S17) rts ;buddies of live processors 
jor r1,= HS5555 ;plus even ones . 
and r4,ri ;select these only 
endif 


; these need restarting 


call locbIt,bltact}bltrun, tempt,rckcon 


endif 
endif 
endif 
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550E 
5512 
5516 
SS1A 
SSiE 
5520 
5524 
5526 
552A 
S52E 
5530 
5534 
5538 
553A 


553E 
5542 
5544 
5548 


554C 
5550 
5554 
5556 
SS5A 
555C 


5560 
5564 


4878 
3078 
4078 
4078 
SABC 
4078 
SABS 
4078 
7018 
9A08 
7028 
7038 
EO2C 
3118 


7018 
9A07 
7028 
7038 


3118 
7018 
990F 
7018 
9A03 
3118 


4078 
7128 


DEAD 
0288 
5624 
OFOE 
5SS5A0 


ODS50 
0056 


0058 
OOSA 


0056 
OO5C 


OOSE 
0060 


oosc 
OOAA 
0050 


0050 


O5D4 
O1AG6 
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set Istack-IstkIn-IstkIn 


call sarwdg 
call sarpoll 
next if fail 
call sarpent 
next if fail 
call sokay 
jda ri,quitrt 
ifnot zero 


Ilda r2,rtryad 
Ilda r3,rtrype 
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= =stkpass ;init stack password 


;check application watchdog 
;poll various init routines 
:hanging on some fix 
;enough procs running? 
;nope - hang here 

;on to next stage 


jany recent quit retries? 
;R2 reports QUIT address 
:;R3 reports QUIT PC. 


Trap 54,<;Quit retries ok on 2nd mem ref (H) - page 62> 


subm ri,quitrt 


endif 
lda ri,qqhct 
ifnot zero 


Ilda r2,qqhad 
Ida r3,qqhpe 


rany QUITs in QUIT handler? 
;R2 reports QUIT address 
;R3 reports QUIT PC 


H Trap 52,<;QUITs in hndIr (MEM PROB-- CALL MAINT) (H) - page 62> 


subm ri,qqhct 


endif 


Ilda ri,procno 


ifnot odd 


Ilda ri,clokrt 


ifnot zero 


:should I have jiffies? 


sany RTC re-reads? 


¥ Trap 55,<:RTC read retries succeeded (H) - page 62> 


subm ri,clokrt 


endif 
call rclock 


sub r2,jtime 


;read the clock, reliably 
:when jiffy last looked 


2214 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 63 
STAGEC.PLR;1 


5568 
S56A 
SS6E 
5570 


9B05 
4E28 
8c02 
EOOA 


7048 
3048 
7058 


4958 
4B58 
702D 
9A08 
352D 
481D 
4078 
SOF3 


4008 


2710 


OODO 
FCO2 
0100 


0010 
0030 
0102 


0102 


0104 
0734 


5496 


PAGE 17.1 
ifnot minus ;jiffy didn’t nail us? 
if r2 > = D10000 71 second gone 
Trap 12.<;Jiffy clock stopped (H) - page 63> 
endif 
endif 
endif 
lda r4,mapvar :get application vars page 
sta r4,%mapi 
jda r5,locipt ; local info to common 
repeat 
sub r5,=ibufl*words ;most recently used buffer 
and rS,=<nibuf-1>*ibufl*words :keep within buffer 
Ida r2,locill(r5) :Trap here? 
until zero 7;no more in local 
eorm r2,locill(r5) ;removing this one 
lda ri,=locill+words(rs) ;point to regs 
call illent 
endrepeat 


endrepeat 
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OFOE 
OF 10 


OF 12 
OF 16 
OF 18 
OF1C 
OF 20 
OF22 


OF24 
OF 26 
OF 28 
OF2A 
OF2c 
OF2E 
OF32 
OF36 
OF38 
OF3A 
OF3E 
OF40 
OF 44 
OF 46 
OF 48 
OF4C 
OF4E 


1076 
4890 


6029 
9931 
3028 
7078 
9A2C 
1016 


1026 
0201 
4077 
8A1D 
4817 
7078 
3078 
6026 
6076 
4078 
8110 
3028 
0888 
4876 
4868 
1076 
4071 


OOBO 


FCOO 
40BA 


OOBO 
FCOO 


OD2E 


FCOO 


02C8 
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PAGE LCode :;back to local 


;Stage AR Init Routine Poller 
routine sarpoll 
Ida r1,=0 
repeat 
Ilda r2,imap(r1)+ 
ifnot odd 
sta r2,%mapo 
lda r7,pginit 
ifnot zero 
push ri 
repeat 
push r2 
rst whe 
call (r7) 
if fail 
lda ri,r7 
setmap mO,maprel 


pop r2 

pop r7 

call sfxbad 

if equal 
sta r2,%mapo 
inh .L4 
jda r7,sp 
Ilda sp,=slstack 
push r7 


call (r1) 
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;for all code 


;next map setting 

;page exists 

iget to it 

;pointer to init routine 
;there is one 

;save Imap index 


;Save map setting 

:done condition 

rcoreturn to routine 

;wants consensus 

;remember coreturn 

;need rely page for consensi 


;remember map setting for later 
;foraet Imap index 


:got it 
:allow long init routine 


;use system local stack 
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OFSO 
OFS2 
OF56 
OFSA 


OFSE 
OFG6GO 
OF62 


OFG4 
OF66 
OF68 
OF6A 
OFGE 
OF70 
OF74 
OF76 


OF78 
OF7C 
OF8O 
OF84 


OF86 


6066 
4078 
7078 
3078 


6076 
4FFO 
4007 


6026 
9108 
1076 
4078 
6076 
3028 
g90D8 
6016 


7078 
3078 
7618 
81C7 


6006 


OF 88 
OOBO 
FCOO 


O7DC 


FCOO 


00BO 
FCOO 
4104 
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pop sp 
Cail fret 
setmap mO,maprel 


endif 


fail return 


endif 
pop r2 
until equal 
push r7 
call wsleep 
pop r7 
sta r2,%mapo 
endrepeat 
pop ri 
endif 
endif 
setmap mO,maprel 
until ri = ncodep 
endrepeat 
endroutine sarpoll 


PAGE 65 


;back to AR stack 


;need rely page for caller 


:start over either way 


;map setting 

; this routine done? 

;save coreturn 

;(restores map O = maprel) 
;fetch coreturn again 
;page to call on 


;restore Imap index 


sreturning to rely 


;for all code pages 
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OF 88 
OF8A 
OF8E 
OF92 
OFS4 


FCOO 


559E 


55A0 


55A2 
55A6 
SSAA 
55AE 
55B2 


55B6 
55B8 
SSBA 


SSBC 
55CO 


55C2 
55¢4 
55C6 


1076 
7OF8 
3078 
0808 
6006 


0000 


0000 


1076 


4078 
7078 
4078 
7378 
7018 


4991 
8A02 
6006 


4B7F 
8AFB 


6076 
4FFO 
4007 


O1A4 
O1A2 


oDg0 
5EA2 
FFFF 
5EA4 
559E 


FFFF 
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sRoutine to fix up jiffy timing and reenable level 4 


routine fixjif 
Ida r7,@lclock 
sta r7,ltime 
enb .L4 

endroutine fixjif 


page RelCode 


;move this into kernel params 


minpro: ce) 


; SARPCNT 


;count procs that are running, 


routine sarpent, uses ri 


call sclear 
Ilda r7,inifix 
eor r7,=-1 
and r7,inicon 
lda ri,minproc 
repeat 
sub ri,=1 
if zero 
return 
endif 
and r7,=-1(r7) 
until zero 
endrepeat 
fail return 


in new IMPLOD }}} 


;patched by FINSTAGE 


fail if too few 


;hanging procs don’t count 


;and procs must be in this stage 
;how many required 

;count procs now 

;count one 

;got enough 

;all’s well 


;count off a running proc 
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endroutine sarpcnt 


227 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 68 
STAGEC.PLR: 1 PAGE 20 
.comnt | 


Subroutine to try to set up a BIT local-to-local transfer 
In-line args: blt state, dest proc mask, and source proc mask 
Grabs blt process if not busy and starts a transfer 

Assumes: use reload buffer on rely page. Limits = local limits. 
Source type = dest type = all processors (anypro). 


55C8 6037 routine locbIt,inline r3,indirect ri,indirect r2,uses r5 
55CA 6097 
55CC GOA7 
S5CE 1076 
55D0 7078 BDBA lock blitlok :lock bit params 
55D4 SAFE 
55D6 7078 SDBC lda r7,bltst 
55DA 9922 ifnot odd :blt busy? 
55DC 4858 O2F8 Ilda r5,=localc :starting address to load 
55EO 3058 5DCO sta r5,bltadd ;remember addr for outside 
55SE4 48FF lda r7,=anypro ;this is local-local 
55E6 3078 S5DDG sta r7,bltsty ;source type 
55EA 3078 SDDA sta r7,bltdty ;dest type 
55EE 3038 SDBC sta r3,blitst ;new bit state 
5S5F2 7078 O2FA Ida r7,hotlim :get finish : 
55F6 4975 sub r7,r5 ;length of transfer 
55F8 3078 5DC2 sta r7,bltsiz ;total transfer 
S5SFC 3028 S5DD8 sta r2,bltspm ;source procs 
5600 4D28 FFFF eor r2,=-1 ;not source procs 
5604 4B12 and ri,r2 ;only these get core 
5606 3018 SDDE sta ri,bltdpi ;dest procs 
560A 4878 S5DEO lda r7,=bl tbuf 
5GO0E 3078 5DC8 sta r7,blitbfa ;buffer address 
5612 7078 OOAO Ilda r7,stime 
5616 4A78 0078 add r7,=bltrat 
561A 3078 SDBE sta r7,bitto :set timeout 
endif 


561E 3008 BDBA unlock bitlok 


endroutine locbhlit 
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5622 6006 


\ 229 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 70 
STAGEC.PLR;1 PAGE 21 


;check system watchdog 


;define watchdog variables 


Page Vars 
625A wdgtim: .blkw 2 ;lo-hi order sytime at which to trigger 
FCOO 0000 page RelCode 
5624 1076 routine sarwdg, uses ri-r2 
5626 7078 OOA8 if procbt .nbit. debugm :don’t check if debugging 
562A 7778 O30C 
562E 8A10 
5630 7018 625A Ilda r1i,wdatim ;get lo order current time 
5634 S9AOD ifnot zero 
5636 7028 625C Ida r2,wdgtim+words 
563A 7118 OOAO sub ri,stime :see if time’s up 
563E 9402 ifnot carry 
5640 49A1 sub r2,=1 
endif 
5642 7128 OOA2 sub r2,stim2 
5646 8B04 if minus ;time got ahead too far} 
5648 EOSO Trap 120,<;S/W watchdog timer expired}} - page 70> 
564A 4048 OAOS8 jsb rd,ws ;restart just for now 
.comnt | 
Ilda ri,# HDOOB ;calling card 
sta ri,mO#cksum ;imaprel;smash rel page 
lda r2,maprel+ H10 ;;nsparp 
ifnot odd shave to get spare too 
sta r2,%map2 
sta ri,m2¢cksum 
endif 
endif 
endif 


endif 
S64E 6006 endroutine sarwda 
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-INSERT “DDT" 
- INSRT DDT 
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Pluribus IMP Minimal DDT 
Written for IMP 1110, April 1980- Andy Huang 
Revised for IMP 1112, 28 April 80- Andy Huang 


1. Numbers 


<esc> O, 


The new DDT works solely in hexadecimal. The radix commands 
H, D and the radix specifiers "’" , "}" , "." have all 


been removed or applied to other purposes. Another character (%) is 
now used to specify decimal input rather than hexadecimal and is the ° 
only exception to the hexadecimal rule. 


2. Commands 


x.y/ 


x/ 


x, y<er> 


x<cr> 


This is the basic examine command of DDT to return the 
contents of a memory location. There are two cases of this 
command depending on the value of Y. If Y is a local address 
(ie Y is less than 4000) then X is the mask of processors 
whose memory is to be examined (this means that the answer 
returned will be from one of the processors specified by the 
mask X). <A special case is a negative mask value and sets 
the processor mask to be all those that are known to exist 

to stage BD. In the other case, when Y is greater than 4000 
and therefore a reference to common memory, a then specifies 
the map setting to use in the reference. In this case a can be 
either a logical page (x < 200) or a physical page (x is odd 
or x > 200). : 


This is a simplified case of the above and does an examine 
of the address X using the last processor mask specified if 
X is a local address or the last map specified if X is a 
common memory address address. 


Carriage return is used to insert new values into memory and 
close the location currently examined. X and Y will he inserted 
into the current location and the next location respectively - 
if the current location is still open and then the location is 
closed. A location is open when it has been examined but not 
closed with a carriage return or linefeed. 


This is just the one argument form of the above and stores just 
one number into memory 
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<cr> 


<lf> 


<del> 


This is the no argument form of the above and stores nothing 
but closes the location. 


Linefeed closes the current location and examine the next location 


Space adds two arguments together and the result becomes one 
argument. eg "x y/" will open the location at xty. 


Delete (=rubout) will zero all current input and will restore DDT 
to the state it was at the last typeout. 


Dot has the value of the current address and can be used instead 
of typing the current address. It can no longer be used to specify 
a decimal number. 


Dollar sign is now used to say that the number just typed in is 
a decimal number. 
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3. Typeout 


All typeout from DDT is four digit hexadecimal. 


Examine Formats 

a,b/x y 
This is the usual format of an examine. If a,b is a 
local memory reference, then only x will be printed. Note that 
the processor that did the reference is no longer specified. 
If a,b is a common memory address then x and y are the 
contents of the main and spare pages if they differ. If some 
kind of error occurs in the reference then the x and y are 


replaced by the appropriate error messages for the corresponding 


pages. 


Error Messages 
There are two formats of error messages for the two situations 


where an error can occur. A system wide error can occur causing 

Stage to put the system into the stand-alone DDT mode (if enabled 
by DEBUGM). In this situation the bit of the processor reporting 
the error is printed first followed by the error followed by the 


location of the error. The second type of error is a store or: 
read error as a result of a DDT reference. In these cases the 
error is typed first followed by a number specifying the mask 
of processors that failed the reference. 


Errors 


QUIT The location referenced by DDT resulted in a QUIT or an unexpected 


QUIT occurred in the running of the system. In the system QUIT 


the address returned by DDT is not the address of the instruction 


producing the QUIT but the address of the FOO! Trap specifying 


the quit. The location of the QUIT can be found in the snapshot area 


in the Stage variables area. 


NX Bit returned a non-existent memory code as a result of some DDT 
reference. 
FRMT BLT returned a format error in response to some DOT reference. 


This usually means that DDT had set up parameters improperly for BLT 


or that a reference to a nonexistent processor was made. 


TO Timeout- BLT took too long to complete a reference and aborted 
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IL An attempt was made to execute a non-instruction 


FADE The halt all processors trap was encountered in the running of the 
system 
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0000 
0000 


0002 
0006 


0008 


S5BOO 
SBIE 
SBiE 
5SBIiE 
5B20 


PAGE 3 


.stitle DDT and TTY code 


.padix H10 


;Teletype interface definitions 


page Dummy 
-=0 
psbsta: .blkw 1 
psbfree=1 
psbovr=4 
psbbrk= H8 
-blkw 2 
psbctl: .blkw 1 
psbact=1 
psbout=2 
psbint=4 
psbech= H& 


psbdat: .blkw 1 
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;status register 
7PSB available 
;overrun 

;got a break 


;control register 

;psb active bit 

;psb in output mode 

;psb should cause interrupts 

;psb should echo typein (half-duplex) 


;data register 


;vistar cursor control characters: ' 


cclear= 013 
cright= 031 
cup= 034 

cdown= O35 


psbone= HFAOO 
psbtwo= HEAOO 


;some useful ascii constants 


ascicomma= 054 
ascispace= 040 
ascilf= 012 
ascicr= 015 
asciff= 014 


page DOTVars 
;ddt stack vars 
stack dd, D15 


ddtsp: eblkw 
dsyssp: -bikw 


1 
1 


;clear current line 
;move cursor right - 
;move cursor up line 
;move cursor down line 


;Space 
;linefeed 
;carriage return 
;formfeed 


;ddt stack pointer when sleeping 
:system called ddt with this in sp 
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DDT .PLR; 1 PAGE 3.1 DDT and TTY code 
;tty stack vars 
5B22 stack tt, D10 
5B36 
5B36 : 
5B36 ttysp: -blkw 1 ;tty’s stack saved pointer 


5B38 ttsyssp: -bikw 1 ;system called tty with this 


an a 
{ 
IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 78 
DDT.PLR;1 PAGE 4 DDT and TTY code t 
& page vars ;vars on imp vars page 
locdef d2fl 
locdef f2d1 
locdef ttylok 
locdef ddtlok 
6266 poltim: .blkw 14 ;stime at last poll from operational pgm 
6268 dxtflaq: -blkw 4 :flag: ddt should be polled (dxt ran) 
626A dspf lad: -bIlkw 1 :if zero, don’t display traps 
626C d2fb: -bilkw 1 ;ddt to fake buffer 
626E d2fpok: .blkw 1 
;display, ddt, tty poke flags 
6270 ttpoke: .blkw 1! ‘ 
6272 ddpoke: .blkw 1 
6274 dsppok: .blkw 1 
6276 f2db: -blkw 1 :;fake to ddt buffer 
6278 f2dpok: .blkw 1 
627A f2tpok: .blkw 1 
627C t2fpok: .bikw 14 
:define format of ring buffer and pointers : 
0014 bufsiz= D20 show many bytes in buffer 
page dummy 
0000 = 
0000 rbuff: .blkb bufsiz ;buffer 
0014 rbufs: »bilkb 1 spointer to start of buffer 
0015 rbufe: -bIlkb 1 ;pointer to end of buffer 
4016 rbflok= .+fo0o 
0016 ».bilkw 1 ; locks the block 
0018 rbuf len: .blkw O ; length of buffer and pointers 
page vars 
627E ttyibf: .blkb rbuflen ;tty puts stuff here 
6296 ttyobf: .bikb rbuflen :tty writes from here 
62AE anom: .blkw 1 ;anomalies word 
1000 hdebit= H1000 ;:host data checksum is bad 
0400 msgbit= H400 ;message generator bit 
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DDT.PLR;1 PAGE 4.1 DDT and TTY code 
0200 cumbit= H200 :cumulative statistics bit 
0020 HTSBIT= H20 ;HEAT SENSOR SWITCH USE TO BE SAT 
0010 ovrbit= H10 ;override switch bit in anom 
0004 SS2BIT=4 7SENSE SWITCH 2 BIT 


0001 ss4bit=1 ;sense switch 4 bit in anom 
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62BO 


62BO 
62B2 


62B4 
62B6 
62B8 
62BA 
62BC 


62BC 
62BE 
62CO 
62C2 
62CA 
62CC 
62CE 


5B3A 
5B3C 


PAGE 5 DDT and TTY code 


:DDT variables 
page Vars 


ddvarst: -bilkw O :start of area to clear on init 
;argument flaqs 
pfx: -blkw 1 ;non-zero means two args typed 
something: -bilkw 1 ;non-zero means something typed 


;argument variables 


ddaccum: -blkw 1 7most recently typed arg 

sum: -blkw 1 ifor addition 

decnum: -bikw 4 yargument in hex 

prefix: -blkw 1 iFirst arg of two 
ddivarend: -blkw O ;end of input variables 


;deposit/examine variables 
;non-zero means open 


locopen: -blkw 1 
curadd: -blkw 1 ;alternative to band-aid 
mapbits: -blkw 14 ;mapbits of curadd 
dmap: -bilkw 4 ;map values for four current maps 
ddtproc: -blkw 1 ;processor mask for this access 
lastnum: -bIlkw 1 ; last number typed out 

ddvarend: -blkw O ;end of init vars 


Page DDTVars 
;b1t interface buffers on DDT page 
ddtbf2: .blikw 1 ;buffer for two word store 
ddtbuf: .blkw 1 ;buffer for examines, one word stores 
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DDT .PLR;1 PAGE 6 DDT and TTY code 
0000 -parity O 77 bit ascii 
Page LCode 


;POLLER- Stage’s connection to ddt/tty 
: called with slstack out of wsleep so as to not interfere 
; with saved system stack if application not running 


OF9S6 1076 routine poller 
OFS8 4078 OFBC call finddt ;set up maps 
OFSC 7078 4084 if intime ;can run this stuff 
OFAO SAOD 
OFA2 49F1 sub 77,41 ;;intime ;count down timer 
OFA4 3078 40B4 sta r7,intime 
OFA8 4078 42B8 call ddtpol ;check for ddt stuff 
OFAC 4078 40CO call dxtchk ;check crosspatch 
OFBO 4078 4134 call ttypol ;do tty 
OFB4 48F3 set intime = 43 shold off timer 
OFB6 3078 40B4 

endif 
OFBA 6006 endroutine poller 

routine finddt, nosave ;don’t need much so save an instr 

OFBC 7018 OODO lda ri,mapvar 
OFCO 3018 FCO2 sta ri,%mapi 
OFC4 3018 FCO6 sta r1,%map3 
OFC8 7018 O0OB2 lda ri,mapddt 
OFCC 3018 FCOO sta r1,%mapo 
OFDO 4807 endroutine finddt 

$dopatch jpoll, LCode ;connet poller with system 
0310 OF96 poller 


IMP Operating System 


DDT.PLR;1 


FCOO 0200 
40B8 7B00 
40BA 4236 
40BC 0000 
40BE 0002 


40CO 1076 
40C2 7078 
40C6 7178 
40CA 7478 
40CE 4F78 
40D2 9A21 
40D4 7078 
4008 SAFE 
40DA 7878 
40DE 8A09 
40EO 4078 
40E4 627E 
40E6 9105 
40E8 3818 
40EC 3008 


40FO 3008 
40F4 7078 
40F8 SAFE 
40FA 7818 
40FE 9A09 
4100 4078 


6266 
OOAO 
O30C 
FFOO 
A260 
6276 
1008 


6276 
6268 


A260 
A25E 
626C 


OFD2 


PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 82 


DDT and TTY code 


Page DDTCode 


lock f2dl1 
ifnot byte f2db 
call rbfget, ttyibf 


ifnot equal 
stab r1,f2db 
set dxtflag 
endif 
endif 
unlock f2d1 
lock d2fl 


Idab r1,d2fb 
ifnot zero 
call rbfput, ttyobf 


:DXTCHK- checks and does the crosspatching of tty and ddt 
if a) tty hasn’t been polled for a long time; or 
b) the sign bit is set in DEBUGM. 
routine dxtchk, uses r1/r2 
Ida r7,poltime 
sub r7,stime 
ior r7,debugm 
if r7 .bit. #OFFOO 


; last time polled 
;time now 


ztoo long or always crosspatch 
:give stuff to ddt? 

;ddt took last, so get more 
:get stuff from tty. 
;something really happened 


jput result away 
> SO make sure ddt goes 


:stuff from ddt? 
:yup, give to tty 
;put on tty’s output buffer 
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DDT.PLR;1 


4104 
4106 
4108 
410C 


4110 


4114 


6296 
9105 
3918 626C 
3008 6268 


3008 A25E 


6006 


PAGE 7.1 DDT and TTY code 


ifnot equal 
subbm r1,d2fb 
set dxtflag 
endif 
endif 
unlock d2fl 
endif 
endroutine dxtchk 


;buffer ok 
;clear ddt’s buffer 


and make sure ddt runs 


P Operating System PLURIBUS V2.9B 25-Jun-87 


DDT.PLR;1 


4116 
4118 
411A 
411C 
411E 
4120 
4122 
4126 
412A 
412E 
4132 


4134 
4136 
413A 
413C 
4140 
4142 
4144 
4148 
414A 
414C 
414E 
4150 
4152 


1076 
1016 
1026 
1036 
1046 
1056 
4078 
3068 
7068 
3008 
6006 


1076 
7078 
SAFE 
3068 
4877 
33909 
7068 
6056 
6046 
6036 
6026 
6016 
6006 


PAGE 8 TTY handler 
.stitle TTY handler 


;tty poller connections 


11:22:42 PAGE 84 


;TTSLEEP to put tty handler to sleep 
; can accept any map settings in m2,m3 


; returns standard mO-m3 


routine ttsleep, local ri-rS, arg m1, result mO-m3 


call dxtchk 
sta sp,ttysp 
Ida sp,ttsyssp 
unlock mi#ttylok 
pop ro 
ttypol: 
save r7 
lock r7,ttylok 


sta sp,ttsyssp 
lda r7,r7 zi ttylok 
bo ttyini 
Ilda sp,ttysp 
endroutine ttsleep 


;check crosspatching 
;Ssave our stack 


; and get system’s stack 


;release both stacks 
;return to system 
;entry from system 
;save return . 
;get control of stacks 


:save system stack 


;bad lock- reset 
:get tty’s stack 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 85 
DDT .PLR;1 PAGE 9 TTY handler 


:TTYINI to start tty and reset tty on quits or resets 
; entered at first run of tty when ttylok odd or when 
; reference to psb gives quit 


ttyini: 

4154 4878 0006 Ilda r7,4#1psbtab ;how many to check 

repeat ;find good psb 
4158 SOSF 4190 Ida r5,psbtab(-r7) itry another 
415C 9805 until loop 7no good psb’s 
415E 7015 Ida ri,(r5) ;see if there 
4160 80FC next if quit ;not this one 
4162 9002 break 
4164 SOFA endrepeat 
4166 4E54 if rS <> r4 ;new psb) 
4168 S10E ‘ 

Trap 300,<;DDT changed psbs (VISTAR using new BUS) - page 85> 
416A EOCO 
5 
416C 4845 lda r4,r5 ;use new one 
416E 8A0B if zero ;got none}} 
4170 7078 A2AC lock ttyobf+rbf lok ;reset some stuff 
4174 SAFE . 
4176 7078 A2AA Ida r7,ttyobf+rbufs+foo ;clear out buffer 
417A 3008 A2AC unlock ttyobf+rbf lok 
417E 4078 4116 call ttsleep 
4182 SOES br ttyini ytry again 
endif 

endif 
4184 3004 set (r4) ;reset interface 
4186 80E7 qutpat ttyini 
4188 4868 5836 lda sp,#ttstack ;correct stack pointer 
418C 900B BR FVSTAR 
418E 8000 NOP 


; table of psbs we may use 


IMP Operating System 


DDT.PLR; 1 


4190 

4190 0000 
4192 EAOO 
4194 FAOO 
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PAGE 9.1 TTY handler 

table psbtab 
oO ;zero Flag to mark end 
psbtwo 
psbone 


endtable psbtab 


PAGE 86 
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DDT .PLR;1 


4196 
419A 
419E 
41A0 


41A2 
41A6 
41A8 
41AA 
41AC 
41AE 
41B2 
41B4 
41B6 
41B8 


41BC 


41CO 


41C2 
4104 
41C6 
41C8 


4078 
4078 
6296 
9105 


4078 
SOF8 
900C 
7074 
890A 
7O7C 
4FF2 
9A04 
48F4 
307C 


4078 


SOEB 


1076 
7074 
4FF8 
9A03 


4116 
1008 


41FA 


0006 


0006 


41C2 


PLURIBUS V2.9B 


PAGE 10 TTY handler 


7;TTY- main loop to check for output and 


25-Jun-87 11:22:42 


PAGE 87 


input to do, 


; Wait for input unless output to do 


tty: initial entry from TTYINI 
repeat , 
call ttsleep 
call rbfget. ttyobf ;try to get output to do 
ifnot equal ;got some to do 
FVSTAR: 
call ttyout ;send output 
next ;check for more output 
else ;no output to do = 
Ida r7,(r4) ;:psbstat ;check status 
if odd :ipsbfree ;not busy so avail 
if psbctl(r4) .bit. #psbout ;was output, 
set psbcti(r4) = #psbact ; can change 
endif 
call ttystuff ;get input 
endif 
endif 
endrepeat 
;handle inputs . 
routine ttystuff, arg r4, uses ri 
Ilda r7,(r4) ;:psbstat :check status 
if r7 .bit. #psbbrk ;got break 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 


DOT .PLR; 1 


41CA 


41CE 
41D0 
4102 
41D6 
41DA 
41DE 
41EO 
41E2 
41E4 
41E8 


41EA 
41EE 
41FO 
41F4 


41F8 


4078 


4FF4 
9A14 
7O1C 
4B18 
4E18 
8206 
4E9A 
9204 
4078 
6296 


4078 
627E 
7078 
3OF8 


6006 


4154 


0008 
OO7F 
0060 


OFD2 


OFD2 


627C 
OOAC 


PAGE 10.1 TTY handler 
call ttyini 
endif 
if r7 .bit. #psbFfree 
Ida ri,psbdat(r4) 
and r1,4#7F 
if ri< # 0140 
if ri >= #asciLlF 
call rbfput, ttyobf 
endif 
endif 
call rbfput, ttyibf 
set @pid = t2fpok 


endif 
endroutine ttystuff 


> ae 
11:22:42 PAGE 88 
> so reset 
;not busy 
:get char 


;just these bits 
;upper limit of printables 


;echo printing chars 


sstuff char into buffer 


;poke fake to take char 
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DDT.PLR;1 


41FA 
41FC 
4200 
4202 


4206 


420A 
420E 
4210 
4212 
4214 
4216 
421A 
421C 
421E 


4222 
4224 
4226 
422A 
422E 
4230 
4234 


1076 
7078 
8A03 
7078 


3OF8 


7O7C 
BO0A3 
4FF2 
8A08 
1016 
4078 
6016 
48F3 
307C 


7074 
9906 
3008 
4078 
9OEE 
301C 
6006 


A274 
A27A 
OOAC 


0006 


41C2 


0006 


6270 
4116 


0008 


PAGE 11 TTY handler 


;output handler 
routine ttyout, arg ri/r4 
lda r7,dsppok+foo 
if zero 
Ilda r7,f2tpok+foo 
endif 
sta r7,@pid 
repeat 
Ilda r7,psbetl(r4) 
qutpat ttyini 
if r7 .nbit. A#psbout 


save rif 
call ttystuff 
pop ri 
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PAGE 89 


;poke whoever poked us 


snow writ char 


iget cnt! 


reg 


; lost psb- reset 
; input mode 


;save what to type 
;use input handler 


set psbctl(r4) = /psbact+psbout 


endif 


lda r7,(r4) ;ipsbstat 
;until psb not busy 
:get poked later 


until odd ;:psbfree 
set ttpoke 
call ttsleep 
endrepeat 
sta ri,psbdat(r4) 
endroutine ttyout 


;put data 


;set output mode 


into psb 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 
DDT .PLR;1 


OFD2 
OFD4 
OFD6 
OFD8 
OFDC 
OFEO 
OFE2 
OFEG 
OFE8 
OFEA 
OFEC 
OFFO 
OFF2 
OFF6 
OFF8 
OFFA 


OFFC 


1000 
1004 
1006 


1008 
100A 
100C 
100E 


1076 
1026 
6027 
3O7E 
TO7TA 
SAFE 
787A 
4A72 
2817 
4972 
TE7A 
9108 
4E78 
9203 
48FO 
0201 


387A 


300A 
6026 
6006 


1076 
1026 
6027 
307E 


0002 
4016 


0015 


0014 


0014 


0015 


4016 


0002 


PAGE 12 TTY handler 
yring handling routines 


Page LCocde 
;RBFPUT-put ri onto ring 
; inline pointer to buffer 
; returns EQUAL if FAIL (}}}) 


routine rbfput, arg ri, local r2, inline r2 


lock rbflok(r2) 


ldab r7,rbufe(r2) 


; lock buffer 


PAGE 90 


;this code used by fakes also 


;get end pointer 


add r7,r2 ;get into block 
stab ri,(r7)+ ;insert into buffer 
sub r7,r2 ifix before saving 


if byte r7 <> rbufs(r2) 


;still room left 


if r7 >= A#Abufsiz ; wrapped 

lda r7,#0 ;reset pointer 

rst %e ;fix cc for return 
endif 
stab r7,rbufe(r2) ;save pointer 


endif 
unlock rbflok(r2) 
endroutine rbfput 


;RBFGET-get ri from ring 

; inline pointer to buffer 

> returns EQUAL if FAIL (}}}) 
routine rbfget, local r2, inline r2, 


result ri 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 91 


DDT .PLR; 1 PAGE 12.1 TTY handler 
1012 707A 4016 lock rbflok(r2) ;control block 
1016 SAFE 
1018 787A 0014 Idab r7,rbufs(r2) :get start pointer 
101C 4E78 0014 if r7 >= Abufsiz ; wrapped 
1020 9202 
1022 48FO lda r7,#0 ;rpeset pointer 
endif 
1024 7E7A 0015 if byte r7 <> rbufe(r2) ;something to get 
1028 9106 
102A 4A72 add r7,r2 ;get into buffer 
102C 6817 ldab ri,(r7)+ ;remove from buffer 
102E 4972 sub r7,r2 ;restore just offset 
1030 387A 0014 stab r7.rbufs(r2) ;save pointer 
endif 
1034 300A 4016 unlock rbflok(r2) 
1038 6026 endroutine rbfget 
103A 6006 


FCOO 0200 Page DDTCode 


( Fae 

IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 92 
DDT .PLR; 1 PAGE 13 DDT Code 

-stitle DDT Code 

;DDTINI- Stage AR’s init of DDT code 
4236 1076 routine ddtini 
4238 7078 40B4 ifnot intime 
423C 8A08 
423E 6076 fail coreturn :get consensus 
4240 4FFO 
4242 4077 
4244 1076 
4246 48F3 set intime = #3 ;do just once 
4248 3078 40B4 

endif 

424C 6076 return equal 
424E 0281 
4250 4007 


endroutine ddtini 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 93 
DDT.PLR; 1 PAGE 14 DDT Code 


;DDRESET- clears buffers, sets init ddt maps, clears args 


4252 1076 routine ddreset 

4254 7078 A294 lock ttyibf+rbflok ;lock and then clear this ring 

4258 SAFE 

425A 7078 A292 Ilda r7,ttyibf+rbufs+foo ;;rbufe ;clear both start and end pntrs 

425E 3008 A294 unlock ttyibf+rbflok 

4262 7078 A2AC lock ttyobf+rbf lok 

4266 SAFE 

4268 7078 A2AA lda r7,ttyobf+rbufst+foo ;;rbufe 

426C 3008 A2AC unlock ttyobftrbf lok 

4270 4890 Ida ri,#0 ;clear some vars 

4272 4828 62BO Ida r2,#ddvarst ;where to start clearing from 
repeat 

4276 2012 sta ri,(r2)+ . 

4278 4E28 62CE until r2 = #ddvarend 

427C 81FD 
endrepeat 

427E 4878 8000 set ddtproc = #sign ;default is all procs 

4282 3078 6G2CA 

4286 4878 62C2 Ilda r7,#dmap :set up init ddt maps 

428A 4894 Ida r1,#4 ;mapcod 

428C 2017 sta ri,(r7)+ ;mapO 

428E 4828 0020 Ilda r2,#20 ;mapvar 

4292 2027 sta r2,(r7)+ ;map1 

4294 4818 0022 lda r1,#22 ymapv2 

4298 2017 sta r1,(r7)+ ;map2 

429A 2027 sta r2,(r7)+ ;mapvar, map3 


429C 6006 endroutine ddreset 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE. 94 
DDT.PLR; 1 


429E 
42A0 
42A2 
42A4 
42A6 
42A8 
42AA 
42AE 
42B2 
42B6 


42B8 
42BA 
42BE 
42CO 
42C4 
42C6 
42C8 
42CC 
42CE 
42D0 
42D2 
42D4 
4206 


4208 
42DC 
42EO 
42E4 
42E6 


1076 
1016 
1026 
1036 
1046 
1056 
3068 
7068 
3008 
6006 


1076 
7078 
SAFE 
3068 
4877 
9909 
7068 
6056 
6046 
6036 
6026 
6016 
6006 


4868 
4078 
4078 
42EC 
4078 


SBIE 
5B20 
6264 


A264 


5B20 


SB1E 


SBIiE 
4252 
4820 


4404 


PAGE 15 DOT Code 


;ddt’s poller stuff here 
routine dsleep, local ri-rS, arg mi, result mO-m3 


sta sp,ddtsp ;save DDT stack pointer 
Ilda sp.dsyssp ;restore system stack pointer 
unlock mi#ddtlok ;release 
pop pc ;return to system 
ddtpol: ;system entry 
push r7 ;save caller 


lock r7,ddtlok 


sta sp,dsyssp ;save system stack 
lda r7,r7 

bo ddienter ; lock died}- reset ddt 
Ilda sp,ddtsp ;get our stack 


endroutine dsleep 


;DDIENTER- initial entry to ddt to get stack and 
: initial content right 


ddienter: 
Ilda sp,#ddstack istart at beqinning of stack 
call ddreset :fix up variables 
call itextout, herald ; type herald 


call argreset ;do some more reset and type tab 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 95 


DDT.PLR;1 PAGE 15.1 DDT Code 

42EA 9031 br disploop sand start det here 
42EC 44 herald: .asciz /DDT} / 

42ED 44 

42EE 54 

42EF 21 

42FO 20 

42F14 jele) 


even 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 96 


DDT.PLR;1 PAGE 16 DDT Code 
;stage error decoder 
42F2 1076 routine ddtste, arg ri, local r2 
42F4 1026 : 
42F6 7078 0154 Ida r7,b1tmyr+< D9*words> ;Location of error 
42FA 1076 push r7 ;save it to print later 
42FC 3D18 0160 eorbm ri,bltmyc ;clear error flag 
4300 1016 push ri ;save for later 
4302 7018 OOA8& lda ri,procbt ;proccessor that got it 
4306 1016 push ri ;save over multi-proc calls 
4308 4078 479C call iddtout, ascispace 
430C 0020 
430E 6016 pop ri :get back proc bit 
4310 4078 4830 call numout 
4314 6016 pop ri ;;bltmyc ;error that happened 
4316 4B97 and ri.,#locqut}locilo}locfad ;possible errors 
4318 A291 sll ri,1 :offset to table 
431A 7029 4338 lda r2,stetab(ri) :get pointer to text 
431E 4078 481C call textout 
4322 4078 479C call iddtout, ‘® 
4326 0040 
4328 6016 pop ri ;7biltmyr ;where it happened 
432A 4078 4830 call numout 
432E 4078 4820 call itextout, %3space 
4332 465E 
4334 6026 endroutine ddtste 
4336 6006 
4338 table stetab 
4338 46AA notext 
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DDT.PLR;1 
433A 4698 
433C 4342 
433E 46AA 
4340 4346 
4342 20 
4343 49 
4344 4c 
4345 0Oo 
4346 20 
4347 46 
4348 41 
4349 44 
434A 45 
434B 00 


PAGE 16.1 
quitxt 
iloptxt 
notext 
fadtext 

endtable stetab 


iloptxt: 


fadtext: 


even 


V2.9B 25-Jun-87 11:22:42 


DDT Code 


+3; locqut*2 
3: locito*2 
7; locfad*2 


-asciz / IL/ 


-asciz / FADE/ 


PAGE 97 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 98 
DDT.PLR;1 PAGE 17 DDT Code M 

;command dispatch loop 

disploop: 

repeat 
434C 4078 47D0 call ddtget ;get char from wherever 
4350 4E18 OO06O if ri >= 4 0140 
4354 9209 
4356 4E18 OO7D if ri >= = 0175 
435A 9204 
435C 4918 001D sub rt,# 0175- 0140 
4360 9003 else 
4362 4918 0020 sub ri,#’a~-‘A 

endif 
endif 
4366 4871 Ida r7,ri , 
4368 A2F1 Si) HF, :dispatch table offset 
436A 707F 43A0 lda r7,ddtdispatch(r7) 
436E 9A16 ifnot zero :there is dispatch 
4370 890A if odd ;7overrid ;needs override 
4372 49F1 sub r7,41 :a cheap AND 
4374 7028 G2AE Ida r2,anom 
4378 4F28 0010 if r2 .nbit. #ovrbit Sisnet on, 
437C 8A04 
437E 4078 44CA call rubout 7;so can’t do 
4382 90E5 next 
endif 
endif 

4384 7028 62B4 Ilda r2,ddaccum :get current args for routines 
4388 7038 62B6 Ilda r3,sum 
438C 4A32 add r3,r2 
438E 7048 62BA Ilda r4,prefix 
4392 7058 62BO Ilda r5,pfx 
4396 4077 eatl (r7) :go to dispatch 


next 
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DDT.PLR;1 PAGE 17.1 DDT Code 
4398 SODA 

endif 
439A 4078 44CA call rubout 


4339E S0OD7 endrepeat 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 100 
DDT.PLR;1 PAGE 18 DDT Code 
.comnt | 


dispatch table 
O - illegal char 


0001 ovrrid=1 :if odd, need override 
43A0 table ddtdispatch 
43A0 0000 .word O ; @ 000 00 
43A2 0000 -word O ie | 001 O1 
43A4 0000 .word O ; B 002 C2 
43A6G 0000 .word O ¢ <6 003 03 
43A8 0000 -word O ; DO 004 04 
43AA 0000 .word O i = 005 05 
43AC 0000 .word O : # OOG O06 
43AE 0000 .word O 2 G 007 O7 
43B0 0000 .word O : A 010 08 
43B2 0000 .word O ae | O11 og 
43B4 44F8 lf <a 012 OA (line feed) 
43B6 0000 .word O * K 013 OB 
43B8 0000 .word O ¢ (6 O14 oc 
43BA 4522 cr 7M 015 OD (car ret) 
43BC 0000 .word O 7 N O16 OE 
43BE 0000 .word O : 6 O17 OF 
43C0 0000 .word O P 020 10 
43C2 0000 .word O ; Q 021 14 
43C4 0000 .word O ; R 022 12 
43C6 O000 .word O 6 5 023 13 
43C8 0000 .word O a 024 14 
43CA 0000 .word O 3; U 025 15 
43CC 0000 .word O 7 oY 026 16 
43CE 0000 -word O ; W 027 17 
43D0 0000 .word O . x 030 18 
43D2 0000 -word O a O31 19 
43D4 0000 -word O a 1% 032 1A 
43D6 0000 .word O ai 033 1B 
43D8 0000 .word O 2 aN 034 ic . 
43DA 0000 .word O = J 035 1D 
43DC 0000 .word O : 036 1E 
43DE 0000 .word O = 037 1F 
43EO 448E space ;space O40 20 
43E2 0000 .word O Can O41 21 
43E4 0000 .word O ls 042 22 
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DOT .PLR;1 PAGE 18.1 DDT Code 

43E6 OO000 .word O # 043 23 
43E8 4472 decimal $ O44 24 
43EA 0000 .word O 7 % 045 25 
43EC 0000 .word O ; & 046 26 
43EE OO000 -word O 3% 047 27 
43FO 0000 .word O eK 050 28 
43F2 0000 .word O : ) os1 293 
43F4 0000 .word O : * 052 2A 
43F6 0000 .word O ok 053 2B 
43F8 447E comma I « 054 2c 
43FA O000 -word O > = o55 2D 
43FC 4466 dot a is 056 2E 


43FE 45CA a slash oid 057 QF 
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DDT .PLR;1 PAGE 19 DDT Code 

4400 44A4 . digit * © O60 30 
4402 44A4 digit 0G 1 34 
4404 44A4 digit : 2 0G2 32 
4406 44A4 digit 7 3 OG3 33 
4408 44A4 digit 3 4 064 34 
440A 44A4 digit ; 3 o65 35 
440C 44A4 digit z. © O66 36 
440E 44A4 digit “Fi O67 37 
4410 44A4 digit 2 2 070 38 
4412 44A4 digit ; 9 071 39 
4414 0000 .word O mi Ss 072 3A 
4416 4798 ddtout 2. 073 3B (just echo semis) 
4418 OOOO .word O s ig O74 3c 
441A 0000 .word O i O75 3D 
441C 0000 -word O ‘2 O76 3E 
441E 0000 .word O = O77 3F 
4420 0000 .word O ; @ 100 40 
4422 449E hexletr ; A 101 41 
4424 449E hexletr : & 102 42 
4426 449E hexletr 7 ¢ 103 43 
4428 449E hexletr : D 104 44 
442A 449E hexletr 3 & 105 45 
442C 449E hexletr a FF 106 46 
442E 0000 .word O 7 G 107 47 
4430 0000 .word O : H 110 48 
4432 0000 .word O 2 144 49 
4434 0000 .word O eo 112 4A 
4436 0000 -word O 7 K 113 4B 
4438 0000 .word O a 114 4c 
443A 0000 .word O 7M 115 4D 
443C 0000 .word O 7 N 116 AE 
443E O000 .word O ; oO 117 4F 
4440 0000 .word O 3 P 120 50 
4442 0000 .word O 3 121 51 
4444 0000 .word O 7 R 122 52 
4446 0000 .word O % 123 53 
4448 0000 -word O a 124 54 
444A 0000 .word O 2 U 125 55 
444C 0000 .word O 3 Mv 126 56 
444E 0000 .word O 7 WwW 127 57 
4450 0000 .word O ae, 4 130 58 
4452 0000 .word O e v 131 59 
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4454 
4456 
4458 
445A 
445C 
445E 


4460 
4462 
4464 


0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
44CA 


PAGE 19.1 DDT Code 


.word 
.word 
.word 
-word 
.word 
. word 


.word 

. word 

rubout ; 
endtable ddtdispatch 


oo.) 6} CoCooCcKo°o 


PLURIBUS V2.9B 25- 


Jun-87 11:22:42 PAGE 103 
Z 132 SA 
[ 133 5B 
\ 134 5C 
] 135 5D 
136 5E 
137 5F 


code 175 folded to 140 
code 176 folded to 141 
rubout, code 177 folded to 142 


PAGE 104 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 
DDT.PLR;1 PAGE 20 DDT Code 
.comnt | 
character dispatches 
character in ri for all dispatches 
4466 1076 routine dot 
4468 7078 G2BE set ddaccum = curadd 
446C 3078 62B4 
4470 6006 endroutine 
-comnt | Decimal to convert the current argument into decimal | 
4472 1076 routine decimal 
4474 7078 62B8 set ddaccum = decnum 
4478 3078 62B4 
447C 6006 endroutine decimal 
;handle argument seperator 
447E 1076 routine comma, arg r3 
4480 3038 62BA sta r3,prefix ;put into prefix 
4484 3008 62BO set pfx ;say we have one 
4488 4078 44EO call accreset ;reset ddaccum etc 
448C 6006 endroutine comma 
;add two args 
448E 1076 routine space, arg r2-r3 
4490 3128 62B4 subm r2,ddaccum ;clear accumulator 
4494 7078 A2B8 Ilda r7,decnumtfoo ;clear decimal number 
4498 3038 62B6 sta r3,sum ; and save sum 


449C 6006 endroutine space 
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DDT.PLR;1 


449E 
44A0 
44A2 
44h4 
44A6 
44AA 
44AC 
44AE 
44B2 
44B6 
44BA 
44BC 
44BE 
44CO 
44C2 
4404 
44C8 


44CA 
44CC 
44D0 
4402 
4404 
4406 
44DA 
44DE 
44EO 
44E2 
44E6 
44EA 
44EE 
44F2 


1076 
4997 
9002 
1076 
4918 
A2A4 
4A21 
3028 
3008 
7028 
4872 
A2A2 
4A27 
A2A1 
4A21 
3028 
6006 


1076 
4078 
44F4 
9002 
1076 
7078 
7078 
9002 
1076 
7078 
7078 
7078 
7078 
6006 


0030 


62B4 
62B2 
6288 


62B8 


4820 


A2BO 
A2BA 


A2B4 
A2B6 
A2B2 
A2B8 
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DDT Code 


;handle alphabetic hex digits 
routine hexletr, arg ri-r2 


sub 


ri,#<‘'A-OA>-‘O 


entry digit, arg ri-r2 


sub 
sll 
add 
sta 
set 
lda 
lda 
sll 
add 
sl] 
add 
sta 


r1,#'0O 
r2,4 
Lae da 
r2,ddaccum 
something 
r2,decnum 
ere 
P22 
r2,r7 

ae Ys | 
rari 
r2,decnum 


endroutine hexletr ;idigit 


;rubout to reset input 
routine rubout 


call 
entry 


Ida 
lida 
entry 


lda 
lda 
lda 
lda 


itextout, rubtxt 
argreset 


r7.pfx+Foo 
r7,prefix+Foo 
accreset 


r7,ddaccum+ foo 
r7,sum+foo 
r7,something+foo 
r7,decnum+foo 


endroutine rubout 


;convert to something useful 
;for numerals 


;convert to number 

ishift accumulated argument 
; include new digit 
;remember something typed 
;accumulate decimal number 


;first multiply old by 10. 
+ (4x+x)*2=10x : 


:add new decimal digit 


;reset args and falgs 


reset current input 


;clear ddaccum 


IMP Operating System PLURIBUS V2.9B8 
DDT .PLR; 1 


44F4 
44FS 
44F6 
44F7 


44F8 
44FA 
44FE 
4500 
4502 
4504 


4506 
4508 
450C 
450E 
4510 
4514 
4518 
451A 
451C 
4520 


62BE 


4522 


4830 
479C 


45CA 


PAGE 21.1 


rubtxt: .asciz /¥ / 


even 


routine If, uses rf 


Ilda r7,curadd 
add r7.#words 
Ilda r5,r5 77 Ppfx 
ifnot zero 

add r7,#words 
endif 
save r7 
call cr 
pop ri 
Ida r3,ri 
call numout 
call iddtout, ‘/ 


clear r5 
call slash 


endroutine lf 


25-Jun-87 11:22:42 
DDT Code 


74 and two spaces 


;get curr address 


7;next one to look at 


:doing two word store 


7so skip two words 


7;Save over call 


;do deposit, close loc as req’d 
;recover new address 


;argument for slash 
:;type new location 
; and slash 


;no prefix 


;use slash to do the work 


PAGE 106 
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DDT .PLR; 1 


4522 
4524 
4528 
452A 
452E 
4530 
4534 
4536 
453A 
453E 
4540 
4544 
4548 
454A 
454E 


4552 
4556 
455A 
455C 
4560 
4564 
4568 
456C 
4570 
4574 
4578 


1076 
4078 
458E 
7078 
9A2D 
7078 
SA27 
7078 
7778 
8A06 
7078 
4F78 
9A1B 
3038 
3048 


4078 
4078 
489B 
4078 
4078 
4878 
3078 
3008 
4078 
4078 
4078 


4820 
62BC 
62B2 


OOA8 
O30C 


G2AE 
0010 


SB3C 
SB3A 


475E 
4592 


4720 
4592 
O80B 
BDBC 
6272 
45AC 
475E 
45AC 


PAGE 22 


PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 107 


DOT Code F 


;handle carriage returns 
routine cr, arg r3-r5 
call itextout, crift»t 


If locopen 


; location still open 


if something ;something typed 


if procbt .bit. debugm } anom .bit. /ovrbit 


sta r3,ddtbuf ;:ddaccum sum ;what to deposit 
sta r4,ddtbf2 7 prefix ;use second buffer 
begin deposit 

call bitget ;get controlof params 

call setdep 

lda ri,#bltact}bltcck}bltful ;to turn on bit 

call blitdo ;and do it 

call setdep ;do spare now 

set m3/blitst = #bltact}bltful}bitcck})bIltspa 

set ddpoke shave poller poke BLT 

call derrprint ;errors for main 

call bltget :check spare store 

call derrprint ;spare errors 


end deposit 


else 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 108 
DDT.PLR;1 PAGE 22.1 DDT Code 
457C 9003 
457E 4078 44CA call rubout y;can’t do this 

endif 

endif 
4582 48FO clear locopen 
4584 3078 62BC 
endif 

4588 4078 44D4 call argreset 
458C 6006 endroutine cr 
458E oD criftxt: .byte ascicr,ascilf,0,0O 
458F OA 
4590 oOo 
4591 leje) 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 109 
DDT.PLR;1 PAGE 23 DDT Code 


:set up parameters for deposit and differentiate 
; between one/two -word stores. r5S = pfx 


4592 1076 routine setdep, arg r5 
4594 4078 46AC call setblit ;get bit and set up parameters 
4598 4875 if r5 ST pex ;two words 
459A SAO08 
459C 4878 SB3A set m3/bIltbfa = #m2/#ddtbf2 ;use second buffer 
45A0 3078 BDC8 
45A4 48F4 set m3/bltsiz = #2twords ;how many bytes 
45A6 3078 BDC2 

endif 
45AA 6006 endroutine setdep 

;type errors from deposit 

45AC 1076 routine derrprint, arg r1, uses r5 
45AE 7058 BDCC Ilda r5,m3/b1 tbmk ;in case error 
45B2 3008 BDBA untock bltlok 
45B6 7078 OODO setmap m3,mapvar ;for ttylok etc 
45BA 3078 FCO6 
45BE 4F18 7074 if ri .bit. #biters ;errors 
45C2 9A03 
45C4 4078 4662 call errprint 

endif 


45C8 6006 endroutine derrprint 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 
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45CA 
45CcC 
45D0 
4504 
45D6 
45D8 
45DC 
45DE 
45E0 
45E2 
45E4 
45E6 
45E8 
45EC 
4SEE 


4SF2 
45F6 
ASFA 
45FE 
4602 
4606 
4608 
460C 
4610 
4614 
4618 
461C 


1076 
3038 
4B38 
A3B4 
49B4 
3038 
4875 
SAOA 
4833 
9B03 
4EBG6 
8C04 
3048 
9003 
304B 


4078 
4078 
4818 
4078 
4F18 
8A0D 
4078 
3008 
4878 
3078 
4078 
4078 


62BE 
EOOO 


62CO 


62CA 


62C2 


475E 
46AC 
008 1 
4720 
0080 


4GAC 
6272 
0801 
BDBC 
462E 
47SE 


PAGE 24 DDT Code 


;open a location 
routine slash, arg r3-r5, uses r 
sta r3,curadd 
and r3,/#0E000 
rll or3,4 
sub r3,#4 
sta r3,mapbits 
tf rs se | DEX 


lda r3.,r3 ::mapbits 
if minus } r3 > #6 


sta r4,ddtproc ;;prefix 


11:22:42 PAGE 110 


1-5. 

;save for this ref amd future 
;just map bits 

;mapy+4 

;map# ‘ 

save it for others 

;prefix typed . 


:what to do with it 
; local address 


so save processor mask 


else ;common reference 
sta r4,dmap(r3) ;:prefix ; save map in DDT’s reg 
endif 
endif 


begin examine 
call bltget 
call setbit 
set ri = “/bltact+bltsdf 
call bitdo 


if ri .nbit. #bitsdf ;;bltst 


call setblit 

set ddpoke 

Ilda r7,#bl)ltact+blitspa 
sta r7,m3/blitst 

call answer 

call blitget 


;control params 


;spare differs 


;fix parameters again 

;get poller to poke 

y;read spare 

yactivate 

;release BLT & type answer 
sget control when bit done 
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DDT.PLR;1 PAGE 24.1 DDT Code 
endif 
4620 4078 462E call answer ;typ spare if dif, else typs ans 
end examine 
4624 3008 62BC set locopen ;allow stores 
4628 4078 44D4 call argreset ;prepare for next 


462C 6006 endroutine slash 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 112 
ODT .PLR; 1 PAGE 25 DDT Code 


462E 
4630 
4634 
4638 
463C 
4640 
4644 
4648 
464A 
4G4E 
4650 
4652 


4656 
465A 
465C 


465E 
465F 
4660 
4661 


4662 
4664 
4668 
46GA 
46GE 
4670 
4672 


BDCC 
5B3C 
BDBA 
ooDO 
FCO6 
7074 


4662 


4830 


4820 


0074 


4GA7 


:interpret error bits from blt examine and 


: print text as req’d 


routine answer, arg ri/r4/r5, uses r1 


Ilda r5,m3/b1 tbmk 
lda r4,ddtbuf 
unlock bltlok 
setmap m3,mapvar 


if ri .bit. #bliters 


call errprint 


else 
Ida ri,rd 
call numout 
endif 


call itextout, %3space 
endroutine answer 


*3space: ,asciz / 


even 


sprint errors 


imask of procs failed 
sanswer is here 
;release bit 

:for ttylok, ddtlok 
;b1t got errors 


ir3-err bits, rS-procs 


sprint answer out 


;type spaces 


routine errprint, arg ri/r5, uses ri/r2 


Ilda r7,#/OFF&bl ters 
and r7.ri yibltst 
Ida r2,#totxt 

if r7 .nbit. “#biteto 


srl r1,8 


slow byte mask of errors 


; low byte errors 
sassume timeout error 
y;bIlt didn’t time out 
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4674 
4676 
4678 


467C 
4680 
4682 
4686 
468A 
468C 


468E 
468E 
46390 
4692 
4694 
4696 


4C17 
A693 
7029 


4078 
4815 
4078 
4078 
A46S5E 
6006 


46AA 
4698 
469E 
46AA 
46A1 


468E 
481C 


4830 
4820 


PAGE 25.1 DDT Code 
jor ri,r7 
srl ri.3 
Ida r2,etab(ri) 
endif 
call textout 
Jda ri,rs ;:;b1ltmk 


call numout 
call itextout, %3space 


endroutine errprint 


table etab 


notext 730 

quitxt ;ibltesq bltedq 
nxistxt ;:bltesk bitdsk 
notext +36 

formerr ;;bltesf bltedf 


endtable etab 


PLURIBUS V2.9B 25-Jun-87 


11:22:42 PAGE 113 


iget errors together 
error table offset-LESS THAN 8}}} 
;get text pointer 


:type text 
;procs failing this way 


;no error 

;source/dest quit 
;non-existent reference 
not error 

;format error , 
zroom for just O-8}}} 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 114 
DDT.PLR;1 PAGE 26 DDT Code 
;error text: 
4698 20 quitxt: .asciz / QUIT/ 
4699 51 
469A 55 
469B 49 
469C 54 
4690 fole) 
469E 4E nxistxt: .asciz /NX/ 
469F 58 
46A0 oo 
46A4 46 formerr: .asciz /FRMT / 
46A2 52 
46A3 4D 
46A4 54 
46A5 20 
46A6 [ole] 
46A7 = 54 totxt: .asciz \TO \ 
46A8 4F 
46A9 20 
4GAA 0O 
4GAA notext=.-1 ;bum to print no text 


.even 
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DDT.PLR;14 


.comnt | 
SETBLT to 


46AC 
4GAE 
46B2 
46B6 
46B8 
46BA 
46BC 
46C0O 
46C2 
46C6 
46C8 
46CC 
46CE 
46D0 
46D2 


46D6 
46D8 
46DC 
46DE 


46E2 
46E6 
4GEA 
4GEE 


46FO 
46F4 
4GF8 
46FC 
4700 
4704 
4708 
470A 


1076 
7078 
7038 
9B11 
4EB6 


PAGE 27 
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DDT Code 


PAGE 115 


set ‘up blt parameters from ddt arguments 


62BE 
62CO 


1FFE 
62C2 


0200 


8000 


62CA 
9D64 


BDD8 
BDDC 
BDDE 


BDD6 
BDDA 
BDCO 
OOAO 
0078 
BDBE 


BDC2 


routine setblit, 


lda 
lda 
ifn 


el 


end 
sta 
sta 
sta 
Ida 
add 
sta 
set 


r7,curadd 
r3,mapbits 


ot minus } r3 > #6 


and r7,f#packm 

ior r7,#bitnic 

Ida r2,dmap(r3) 

if odd } r2 >= #200 


srl r2.9 
else 

ior r7,#bIitlog 
endif 


se 
lda r2,ddtproc 
if minus 


lda r2,m2/procex 
endif 
sta r2.m3/bltspm 
sta r2,m3/b1 tdpm 
sta r2,m34bli tdpi 
Ilda r2,#O0F 
T# 
r2.,m3¢blitsty 
r2,m3/bIl tdty 
r7,m3/b1 tadd 
r7,stime 
r7,/#bitrat 
r7,m3/#bIitto 
m3#bIitsiz = #words 


uses r2/r3 


;get address to look at 
+ and nap req to use 
:restrict to mapO - map3 


;just page offset for common 
;mark as common ref 


:get map we’re supposed to use 


:physical map 


; leave just map setting 
; logical pade 
;tell BLT 


; local examine 

;set processor mask words 
:if "all procs" flag is set 
;use all existing processors 


:source proc mask 

;dest proc mask 
y;initial dest proc mask 
imark as using mask 


;set proc mask or map 
:address to look at 
;set up some more parameters 


timeout rate 


;always just one word 
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DDT .PLR;1 PAGE 27.1 DDT Code 

470E 7078 OOB2 set m3/blitbfm = mapddt ;put answer onto ddt page buffer 
4712 3078 BDCE 

4716 4878 9B3C set m3#blitbfa = #m2/#ddtbuf ;address of buffer 


471A 3078 BDC8 
471E 6006 endroutine setbit 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 117 
DDT .PLR;1 PAGE 28 DDT Code 


.comnt | 
BLTDO to start a bit operation and wait until it is 
complete before returning 
ri: bits for BLTST at entry, returns finished BLTST ° 


4720 1076 routine bltdo, arg ri, result r1, arg m3, result m3/m2 
repeat 
4722 3008 6272 set ddpoke ;tell poller to poke bit 
4726 3018 BDBC sta ri,m3/bltst ;activate blt as directed 
472A 3008 BDBA unlock blitlok ;unlock and let it start 
setmap m3,mapvar ;for ddtlok $%htmaybe don’t need if unlok/m1 


472E 7078 OODO 
4732 3078 FCOG 


repeat 
4736 4078 429E call dsleep ;rock a bye ddt 
473A 7078 OOBO setmap m2,maprel ; through m2 so we can check 
473E 3078 FCO4 
4742 7018 SDBC Ilda r1,m2/bitst ; ready? 
4746 S9F8 until even :i;bltact ;until ready 
endrepeat 
4748 7078 OOBO setmap m3,maprel ;so0 can lock bitlok 
474C 3078 FCO6 
4750 7078 BDBA lock bitlok ;do so 
4754 SAFE 
4756 7018 SDBC Ilda ri,m2/blitst 
475A S9E4 until even ;;bltact :;got to check again 
endrepeat 
475C 6006 endroutine blitdo 
.comnt 


BLTGET gets control of bit parameters when bit is free (not busy) 
returns with bIltlok locked and m2,m3 set to maprel, ri has BLTST 


routine bltget, result m2/m3/ri 
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ATSE 


4760 
4764 
4768 
476C 
476E 
4772 
4774 
4778 
477C 
4780 
4782 
4786 
4788 
478C 
4790 
4794 
4796 


1076 


7078 
3078 
7078 
8904 
4078 
SOF7 
7078 
3078 
7078 
SAFE 
7018 
8908 
3008 
7078 
3078 
SOE6 
6006 


OOBO 
FCO4 
SDBC 


429E 
OOBO 
FCOG 
BDBA 
9DBC 
BDBA 


OODO 
FCOG 


PAGE 28.1 DDT Code 


repeat 
repeat 
setmap m2,maprel 


Ida r7,m2#bltst 
while odd :3;bltact 
call dsleep 
endrepeat 
setmap m3,maprel 


lock bItlok 


Ilda ri,m2/#bitst 
while odd ;ibltact 
unlock bltlok 

setmap m3,mapvar 


endrepeat 
endroutine blitget 


11:2:22)342 PAGE 118 


:get to blt’s page 
;check if busy 
:sleep until free 


z;to lock bItlok 


:check again 
lost it} 

;try again later 
:fix for sleep 
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DDT.PLR;1 PAGE 29 DDT Code 


.comnt | Character at a time 10 routines for DDT | 


4798 1076 routine ddtout, arg ri 
479A 9003 entry iddtout, inline ri 
479C 6017 
479E 1076 

repeat 

repeat . 

47A0 7878 626C while byte d2fb ;can’t give char away yet 
47A4 9A04 
47AG 4078 429E call dsleep 
47AA SOFB endrepeat 
47AC 7078 A25SE lock d2fl 
47BO SAFE 
47B2 7878 626C while byte d2fb ;lost while locking}? 
47B6 9A04 
47B8 3008 A25E unlock d2fl 
47BC SOF2 endrepeat 
47BE 3818 626C stab ri,d2fb ;give char away 
47C2 7078 A26E set ®pid = m3/d2fpok 
47C6 30F8 OOAC 
47CA 3008 A25E unlock d2fl 
47CE 6006 endroutine ddtout 
47D0 1076 routine ddtget, result ri 

repeat 
47D2 7078 O30C if debugm .bit. procbt 
47D6 7778 OOA8 
47DA 9A07 


470C 7818 0160 Idab ri,bltmyc yanything happen? 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 120 
DDT.PLR;1 PAGE 29.1 DDT Code 
47EO 4B97 and r1,=<locqut}1locilo} locfad> 
47E2 SAO03 ifnot zero 
47E4 4078 42F2 call ddtste ;yes--reportéclear 
endif 
endif 
repeat 
47E8 7878 6276 until byte f2db ;buffer not empty 
47EC 8A04 . 
47EE 4078 429E call dsleep 
47F2 SOFB endrepeat 
47F4 7078 A260 lock f2d1 :lock input buffer 
47F8 SAFE 
47FA 7818 A276 ldab r1,f2db+foo ;get input 
47FE 8A04 while zero pnothing yet?} 
4800 3008 A260 unlock f2d1 ;try again later 
4804 SOE7 endrepeat 
4806 7078 A278 Ida r7,m3/f 2dpok 
480A 30F8 OOAC sta r7,@pid ;poke ddt fake host 
480E 3008 A260 unlock f2d1 
4812 4B18 OO7F and ri,= H7F ;we found a character 
4816 4078 429E call dsleep 


481A 6006 endroutine ddtget 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 
DDT .PLR; 1 


PAGE 30 DDT Code 


.comnt | Multiple character routines for ddt and others |‘ 


481C 
481E 
4820 
4822 


4824 
4826 
4828 
482C 
482E 


1076 
9003 
6027 
1076 


6812 
9A04 
4078 
SOFC 
6006 


1076 
3018 
4078 
4798 
6006 


4798 


62CC 
103C 


;type text from r2 until zero 
routine textout, arg r2, uses r1i/r2 
entry itextout, inline r2, uses ri/r2 


repeat 
ldab ri,(r2)+ 
until zero 
call ddtout 
endrepeat 
endroutine textout 


routine numout, arg ri, uses ri/r4/r5 
sta ri,lastnum 
call hexout, ddtout 


endroutine numout 


.comnt | this routine to convert word into ascii hex numbers 
and send result to output routine. output routine to use is 


inline argument, 


103C 
103E 
1040 
1042 
1046 


1048 
104A 


1076 
1026 
6027 
SO7E 
48C4 


A394 
1016 


0002 


number to print is ri 
page LCode ;used by many 


;Save numbers output 
itype in hex using ddtout 


121 


routine hexout, arg ri, local r2, inline r2, uses ri/r4 


Ilda r4,#4 ;how manvt digits we have 
repeat 
rit rt.4 :just high digit 


push ri 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 122 
DDT.PLR;1 PAGE 30.1 DDT Code 
104C 4B9F and r1,#OF ;digit at a time 
104E 4E9A if r1 >= #OA ;alphabetic digit 
1050 9202 
1052 4A97 add r1.,4#‘A-‘9-1 :make it ascish 
endif 

1054 4A18 0030 add r1,#‘O jmake ascii 
1058 4072 call (r2) :send it wherever | 
105A 6016 pop ri ;get remaining digits 
105C 49C1 sub r4,/1 ;count digits 
105E 8AFS until zero ;until all done 

endrepeat 
1060 6026 endroutine hexout 
1062 6006 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 123 
IMPOPS.PLR;1 PAGE 1.5 DDT Code 


-INSERT "OPSYS" 
-INSRT OPSYS 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 124 
OPSYS.PLR; 1 PAGE 1 DDT Code 
;OPSYS.PLR 


;Pluribus Operating System Code. 
;Base Dispatch and Routines to handle it. 


‘ 
Page V2 


7*** This really depends on the hardware pid levels *** 


;Base dispatch table, indexed by pid. 
;Pids O, FC, and FE are reserved by the system. 


80CO base: -bIikw 0128 
0100 lbase=.-base ;base length 


;Mblks is a table parallel to base. Used by modems, hosts 


; and fakes, plus others. 


81CO mblks: .blkw 0128 
page Vars 

;fakpid: .blkw 1 ;simulate PIDs here if nothing else to do 
62CE idlec: -blkw 1 ;how many times PID empty 
62D0 watchi: .blkw 1 ;pointer for First console lights (address) 
62D2 watmi: .-blkw 1 ;and map for same 
62D4 watch2: .blkw 1 ;ptr for console data lights 
6206 watm2: -blkw 1 ;and its map 


62D8 watchs: .blkw 1 :word for procs to blink their lights 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 125 


OPSYS.PLR;1 PAGE 2 DDT Code 
;IMP local code 
defloop loopmv :entry from STAGE. 
Page Lcode 
;Special dispatches from LOOP 
routine bad,nosave,arg ri,arg r4 
1064 E042 Trap 102,<;got illegal pid value - page 125> 
1066 4807 *  endroutine bad 
routine nopids,nosave,uses ri 
.comnt | ; someday 
lda r1,=2 
subbm ri, fakpid+i 
ifnot zero 
Idab ri,fakpid+1 
lda r3,base(r1) 
cmp r3,=bad 
bne loop4 ;good dispatch 
endif 


| 
1068 4891 Ilda r1,=1 
106A 3218 G2CE addm ri,idiec 


1O06E 4807 endroutine nopids 


P Operating System 


OPSYS.PLR;1 


1070 


1072 
1076 
1O7A 
107E 
1082 


1086 
108A 


108E 
1092 
1096 
1098 
109C 
109E 
10A2 
10A6 
10A8 
1OAA 
1OAE 


10B0 
10B4 
10B8 


10BA 
1OBE 


10C2 
10C6 
10C8 
10CC 
10CE 
10D2 
10D4 
10D8 
1ODA 


OOB4 


7028 
7038 
3028 
3028 
3038 


7OA8 
3028 


7068 
7768 
SA37 
7068 
9960 
7048 
4E48 
8105 
48E1 
3068 
9057 


7078 
4E78 
9105 


4878 
3078 


7018 
801D 
7028 
BO1A 
7038 
8017 
7698 
8114 
7628 


OODO 
ooD2 
FCO2 
FCO6 
FCO4 


1070 
FCOO 


030C 
OOA8 


0160 
6208 
1ADE 


0160 


0288 
DEAD 


DEAD 
0288 
408C 
608C 
808C 
1070 


OOoDO 


PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 126 
PAGE 3. DDT Code 
defmO: mapddt+words ;default map O setting 
loopmv: ida r2,mapvar ;Enter here to set up all maps 


loopm: 


loop: 


loops: 


Ilda r3,mapv2 
sta r2,%map1 
sta r2,%map3 
sta r3,%map2 


Ilda r2,@defmoO ::mapcod ;reset default map O 
sta r2,%mapo 


lda r6,debuam :*$ debugging mode? 

tst r6,procbt 7** for me? 

bz loopi :*$ no, proceed 

lda r6,b)tmyc 7*$ am I "halted"? 

bo gosj6 :ipchalt ;*$ yes, no run sys 
Ilda r4,dhalt 3*$ 
cmp r4,=dhpass) ;*% all-hlt password? 
bne loops 7*$ no password 


lda rG,=pchalt ;:*$ halt ourselves now 
sta r6,b1]ltmyc 
br gosj6 


if Istack-IstkIn-IstkIn <> =stkpass 


; Trap 104,<;LSTACK overflow - page 126> 


set Istack-IstkIn-IstkIn = =stkpass 
endif 
lda ri,slfptr 3*$ 
qutpat loope 7k 
Ilda r2,mi/sifptr Hee) 
qutpat loope 7*§ 
Ilda r3.m2/slfptr eee 
gutpat loope 7 *$ 
cmp r1,@defmoO ; :mapcod hs, 
bne loope Shag: 


cmp r2,mapvar His) 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 127 


OPSYS.PLR; 1 PAGE 3.1 DDT Code 
1ODE 8111 bne loope a 3 
10EO 7638 OOD2 cmp r3,mapv2 7*S 
10E4 810E bne loope +*S 
1O0E6 7048 AO8E lda r4,slflk tS *§ 
1OEA 800B qutpat loope TT StS 
1OEC 8A04 if zero 7*$*$ 
1OEE 7048 AO8E lock r4,slFIk :*$*$ 
1OF2 SAFE 
endif 

1OF4 3048 AOBE sta r4.slflk S*S*5 
10F8 4B48 FEOO and r4,=mapmsk  ;*$*$% 
1OFC 4E42 cmp r4.r2 7th 
1OFE 9103 be loop1 + *$*$ 

loope: > Trap 103.<:map error - page 127> 
1100 4048 OAIC jsb r4,wst ;better check the world 


a) 


IMP Operating System 
OPSYS.PLR;1 


1104 
1108 
110C 
110E 
1112 
1114 
1118 
111C 
1120 
1122 
1124 
1128 
112C 
1130 
1132 
1134 
1138 
113C 
113E 
1142 


1146 
114A 
114E 


1150 
1154 


1158 
115C 


70C8 
7148 
8B22 
7048 
8B15 
7028 
3028 
7OA8 
8001 
2024 
7028 
3028 
7OA8 
8001 
3024 
7028 
3028 
48CO 
4868 
609C 


3018 
40F9 
g903C 


3008 
7048 


3548 
4008 


O1A4 
O1A2 


O18A 


62D2 
FCO4 
62D0 


62D6 
FCO4 
62D4 


ooD2 
FCO4 


O2F8 
0174 


OOA4 
80CO 
OOA4 
OOA8 


62D8 
0836 


PAGE 4 


PLURIBUS V2.9B 


DDT Cade 


25-Jun-87 11:22:42 PAGE 128 


:*** to activate strip time measurement, next instruction 


7*** should be 


loop1: 


loop3: 


emty: 
loop4: 


loop2: 
stagep: 


gosjG: 


Ilda r4,@lclock 
sub r4.,1time 


USB R7,MSRPAT (MAPO MUST POINT TO WARM) 


;time to run stage? ‘ 


bnin loop2 syes 

Ilda r4,consol 2*S 

bnm loop3 :*$i don’t have a console. 
Ida r2,watm1 :*$ diddle maps now too 
sta r2,.%map2 u*$ 

Ida r2,@watchi  :* 

qutpat .4+2 7*$ 

sta r2.(r4)+ 7*S. 

Ilda r2.watm2 2*$ 

sta r2,%map2 3" 

Ilda r2,®watch2 ;*$ 

qutpat .+2 7*$ 

sta r2,(r4) 7*$ 

Ida r2,mapv2 ta 

sta r2,%map2 *S 

Ida r4,=0 

Ida r6,=Istack :support RATMAC Routines 
Ida r1,@pidget(r4)+ :try PIDs in order 


sta r1,oldp 
call @base(r1) 
br loopm 


sta rO,oldp 
Ilda r4,procbt 


eorm r4,watchs 
tr sj6 


nominal dispatch 


. *G 
;fake PID level for stage 
;blink my bit 
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P Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 129 
OPSYS.PLR; 1 PAGE 5 DDT Code 


; Routine to add an entry to BASE 
-COMNT | 


The INBASE subroutine accepts a PID level (in R1), a cntrol block 
address (in r2), and a routine pointer (inline argument). 

It adds the routine to the table BASE and the control block to MBLKs. 

If the table entry is the same as the arguments or if it is empty 

(=BAD, LOOP, or O), the success return is taken. If a different routine 
already exists in BASE or MBLKs, the fail return is taken, 

%map2 is saved and restored. 


The calling sequence is: 


lda ri,<pid level> 

Ilda r2,<control block> 
call inbase 

<routine> 


1160 1076 routine inbase, arg ri-r2.,inline r3,local m2 
1162 7078 80BE 


1168 7O7E 0002 


116E 3O7E 0002 
1172 9005 entry inbas2,arg ri-r3,local m2 


1176 7078 80BE 


117C 7078 OOD2 Ida r7,mapv2 ; address base, mblks 

1180 3078 FCO4 sta r7.%map2 

1184 7073 80CO lda r7,base(r1) :get current base entry. 

1188 9A14 ifnot z } r7 = =loop } r7 = =bad } r3 = r7 & r2 = mbIks(ri) 
118A 4E78 108E : 


1190 4E78 1064 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 
OPSYS.PLR; 1 


119A 
119E 
11A0 
11A2 
11A6 
11AA 
11AC 
11AE 


7629 
9109 
6076 
7O7F 
3078 
6076 
4FFO 
4007 


3029 
3039 
6076 
TO7F 
3078 
6006 


81CO 


OOBO 
FCO4 


81CO 
80CO 


OOBO 
FCO4 


PAGE 5.1 NDT Code 


fail return 


endif 

sta r2.mblks(r1) 

sta r3,base(r1) 
endrout ine 


PAGE 130 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 131 


OPSYS.PLR;1 


11C4 
11C8 
11CC 
11DO 
11D4 
1106 
11D8 
11DC 
11EO 
11E2 
11E4 
11E6 


11E8 
11EA 
11EE 
11F2 
11F6 
11FA 
11FC 


7038 
3038 
7038 
3038 
48B8 
48214 
512B 
4F28 
9A04 
88FA 
48A0 
9006 


AGA3 
702A 
732B 
7038 
3038 
4822 
4007 


408C 
0184 
OOBO 
FCOO 


4116 
FFOO 


OEB6 
5SE98 
0184 
FCOO 


PAGE 6 DDT Code 


;subroutine to see if a device is in useio 

777 return, ri device address, r2,r3 clobbered 
; low-order 4 bits of device address ignored 
;mapO is saved and restored,using tempd 


findev: Ida r3.m0+<slfptr&packm> ;save mo. 
sta r3,temp4 
Ida r3.maprel 


sta r3,%mapo ;setup mapO for routine. 
Ilda r3,=useiol ;search fake also 
findet: Ida r2,r1 ;device we seek 
sub r2, iobase(-r3) ;base of this segement 
tst r2,=- DIG*t H10 ;in these 1G devices? 
bz finde2 ryes. now look at the bit 
bnip findet :no, check more 
lda r2,=0 ;zero cc for fail 
br f index 
finde2: srl r2,3 ;convert to bittab index 
Ilda r2,bittab(r2) :get right bit 
and r2,useio(r3) :in useio? 
findex: lda r3,temp4 
sta r3,%mapoO ;restore mapO 
Ilda r2,r2 ;set condition code 


jmp (r7) 


(r= o~ 
\ 
IMP Operating System PLURIBUS V2.9B8 25-Jun-87 11:22:42 PAGE 132 
OPSYS.PLR;1 PAGE 7 DDT Code 
;DOINIT 


. 
, 
' 
' 
' 
‘ 
. 
. 
. 
. 
. 


. 
. 
. 


The DOINIT routine performs table-driven 
initialization for the POPS/IMP system. The 
argument for DOINIT is a pointer (through MO) 
to an initialization table on the page to 
be initialized. The table has the general 
form 


<cmd block> 
<arg> 
<arg> 
<arq> 

<cmd block> 
<arg> 


<nil> 


where the <cmd block> takes one of two forms. 
The most common form is a routine address 
which is just coded in-line. Each routine 

is passed the current table pointer 

in R1 and is responsible for reading 

its own arguments. 


The other possible form for the <cmd block> 
is the pair O / <chain ptr> which 

indicates that the initialization should 
be continued from <chain ptr>. 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 
OPSYS.PLR; 1 PAGE 8 DDT Code 


;The DOINIT routine 


11FE 1076 ROUTINE DOINIT, ARG R1, LOCAL MO 
1200 7078 4OBE 

1204 1076 

1206 4851 LDA RS5,R1 


REPEAT 
1208 6075 LDA R7,(R5)+ 
120A 9919 UNTIL NIL 
120C 8AOB IF ZERO 
120E 6075 LDA R7,(R5S)+ 
1210 8903 IF ODD 
1212 7055 LDA R5,(R5) 
1214 9006 ELSE 
1216 7055 LDA R5,(RS) 
1218 7O7F OOBO SETMAP MO,LMAP(R7) 
121C 3078 FCOO 
ENDIF 
1220 900D ELSE 
1222 7078 OODO SETMAP <M1,M3>,MAPVAR 
1226 3078 FCO2 
122A 3078 FCO6 
122E 7078 OOD2 SETMAP M2,MAPV2 
1232 3078 FCO4 
1236 4OFD FFFE CALL ®-2(R5) 
ENDIF 
123A SOE7 ENDREPEAT 
123C 6076 ENDROUTINE DOINIT 


123E 7O07F OOBO 
1242 3078 FCOO 
1246 6006 


11:22:42 PAGE 133 


;Move arg pointer to R5 
;For each routine or ptr 
;Get the next word 

;O0dd end marker 

;if this is a jump block 
;Get new page type 
;Should we set a map? 
7No, just get new address 


;Move to the new address 
:Move to new map 


;Use standard variables page 


:And extra variables page 


;Call the routine 


IMP Operating 
OPSYS.PLR; 1 


1248 


124A 
124C 
124E 
1250 
1252 
1254 
1258 
125A 
125C 
125E 


1260 
1262 
1264 


1266 
1268 


1076 


6025 
SS0E 
8A07 
6025 
6035 
707B 
3072 
9006 
6075 
6035 


2032 
49F2 
BAFE 


9OF2 
6006 


OOBO 


System PLURIBUS V2.9B 25-Jun-87 


PAGE 9 DDT Code 


11:22:42 PAGE 134 


sRoutine to initialize from the $INIT table 


ROUTINE INITLIST, ARG R5 
REPEAT 
LDA R2,(R5)+ 
UNTIL NIL 
IF ZERO 
LDA R2,(R5)+ 
LDA R3,(R5)+ 
LDA R7,LMAP(R3) 
STA R7,(R2) 
ELSE 
LDA R7,(R5)+ 
LDA R3,(R5S)+ 
REPEAT 
STA R3,(R2)+ 
SUB R7.=2 
UNTIL ZERO 
ENDREPEAT 
ENDIF 
ENDREPEAT 
ENDROUTINE INITLIST 


:For each block in list 
;Get address of block 
;Are we at end : 
:;Is this a map change 
;Load which map 

:And logical page 
:Convert to physical page 
;Store in map 

;Normal reference 

;And count 

:And initial value 

;For each cell in block 
Initialize the word 
;Count two more bytes 
;Until we hit zero 


;Back for more 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 135 
OPSYS.PLR; 1 


126A 


126C 
126E 
1270 
1272 
1274 
1278 


127A 
127C 


1076 


6015 
9907 
48A1 
6035 
4078 
8A01 


9SOF9 
6006 


1174 


PAGE 10 DDT Code 
;Routine to initialize the BASE table 


ROUTINE INITPID 


REPEAT 
LDA R1,(R5)+ ;Get next PID level 
UNTIL NIL 
LDA R2,=NIL 
LDA R3,(R5)+ :And dispatch entry 
CALL INBAS2 ;Enter into the base table 
IF FAIL ;Did this fail 
: Trap 105.<:INBASE failed - page 135> 
ENDIF 
ENDREPEAT 


ENDROUTINE INITPID 


IMP Operating System 


OPSYS.PLR; 1 


127E 
1280 
1282 
1286 
128A 
128C 


128E 
1290 
1292 
1296 
129A 
129C 


129E 


12A0 
12A2 
12A4 
12A6 
12AA 
12AC 
12AE 


12B0 
12B2 
12B4 
12B6 
12B8 


1076 
1016 
7018 O316 
4078 129E 
6016 
6006 


1076 
1016 
7018 0318 
4078 129E 
6016 
6006 


1076 


4E91 
9106 
6071 
30F8 OOAC 
70114 
SOFA 
6006 


1248 
0001 
126A 
0001 
0001 


PAGE 11 ODT 


PLURIBUS V2.9B 


Code 


25-Jun-87 11:22:42 


;Timer routines for PID poking 


ROUTINE DO25.6, LOCAL Ri 


LDA R1,L%25.6 
CALL DOCLOCK 
ENDROUTINE DO25.6 


ROUTINE 001.6, LOCA 
LDA R1,LH1.6 


CALL DOCLOCK 
ENDROUTINE DO1.6 


ee a 


ROUTINE DOCLOCK, ARG R1 


REPEAT 
UNTIL R14 = =NIL 


LDA R7,(R1i)+ 
STA R7,@PID 
LDA R1,(R1) 
ENDREPEAT 
ENDROUTINE DOCLOCK 


;Build the initial 


$ITABLE 


table 


:For each item in clock list 
;Until we reach the end 


PAGE 136 


7;Get pid to poke 
:And get it started. 


;Chain to next 


entry (blank) 


item 


295 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 137 
OPSYS.PLR;1 PAGE 11.1 DDT Code 


12BA 0000 
12BC 0000 
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IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 138 
IMPOPS.PLR; 1 PAGE 1.6 DDT Code 


>Next, finish up the STAGE stuff 


FCOO 0000 $finstage 
40DE 7D50 
40EO 7BOO 
40E2 FFFF 
40E4 FFFF 
40E6 FFFF 
40E8 FFFF 
4OEA FFFF 
40EC FFFF 
40FA 0001 
40FC 0001 
4O0FE 0000 
4100 4000 
4104 0010 
4106 0020 
4108 0030 
410A OOSO 
410C 0002 
410E 0012 
4110 0022 
4112 OO2E 
4114 0002 
4116 E100 
4118 E200 
411A F100 
411C F200 
5016 5020 
5018 5056 
SO1A S3EA 
501C 5496 
SO1E 1072 
40BA 0000 
40BC 0000 
031A O4DC 
0314 O00C8 
0316 0001 
0318 0001 
0320 EOOO 
0322 FOOO 
0324 8000 


IMP Operating System PLURIBUS V2.9B 25-Jun-87 11:22:42 PAGE 139 
IMPOPS.PLR; 1 PAGE 1.7 DDT Code 


0326 8000 
;Now save our symbols 
-iif p2, .outsym impops.sym 


contload ; load system onto us 


64 SECONDS RUN-TIME 
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CONCORDANCE FOR 1: <PSE-1301-1>IMPLOD.COM.1, 3-Dec-86 15:56:16 
2: <PSE-1301-1>IMPOPS.COM.1,10-Dec-86 13:29:59 
3: <PSE~1301-1>IMP.COM.2,25-Jun-87 11:05:10 


A - VES, TA, VES 1S SV eS, VS HS Fe HET MES TIBs FS P46; 
1:10,2:7,2:98,2:98,2:105,2:122 

ABUS 1:68 1:78 

ACCRES 2:105 2:104 

ACT - 2:32 

ACTIVA 2:23 2:23,2:23 

ADDR - 2:4,2:4,2:4 

AGAIN = 23:7 

AGE 3:32 3:263,3:263,3:265,3:265,3:277,3:288,3:308.3:308,3:308, 
3:308,3:309,3:309,3:310,3:310,3:311,3:313,3:404,3:404, 
3:405 

AGEO 3:32 3:32,3:261,3:264,3:265,3:265,3:277,3:280,3:288,3:288, 
3:308,3:310,3:310,3:310,3:310.3:404,3:404 

AGEING 3:404 3:403 

AGETM 3:404 3:403 

AGETX 3:404 3:404,3:404 

AKBITS 3:18 3:312 

ALLOC 3:18 2:23,3:274,.3:305,3:305 

ALLOW - 2:32 

ALTIO 3291. 33413 32:108..3' 108),.3% 1435, 32118 Gs 413.32 113.8: 143 

AMEMIO 1:68 12:79,,.4::738,4:738 4278 

AMPCOM 1:70 1:78.14:84 

AMPMAN 1:68 4273.4 25:78,.4 2781278 

AMPROC 1:70 12:78;,.4:617,,.1:582,.4°82.4:93 

AMPSYS 1:68 1:73 

AMPTRY 1:68 4273 

AN = 2:32 

ANOM 2:78 2:98,2:107,3:65,3:65,3:316,3:316,3:362,3:362.3:375, 
3:402,3:411,3:411 

ANOMSP 3:361 

ANSWER) 2:112 2241622 9 14..23 112 

ANYPRO 1:16 49:92:12 408. Fett. fs VIB ASAT ASATT 22362268 

APROC 1:68 1:78 

AR = 1:23 

ARE = 237 

ARG1 - 934,.1914..9°5.155 64995 1:2952245.2345224,2: 19.2: 15.2720, 
23320 (221202 520,220, 2724)" 22241 (2:24. 20Ot 222k 2597, 
2327232 ,.22792 5.2592, 25322392,(/2593.2595.2°693:.2:593. 
2:93 ‘ 

ARG2 - 1345:794,1.25;) 195,159, 459.224 224, 23423 15523 15 est, 
QE Vg Cie Tig Ss Speedie eh oe 102 SS,, 223S...25393:..225595:. 
2:33 

ARG3 - 12:4,494,1:5,1:5.2:4,2:4,2:4,2:15.2:15,2:27,2:27 
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:434,3:435,3:444 

1440,3:440 

:443,3:443 

7440,3:440 

:440,3:440 

:369,3:440,3:440 

7:39,3:435,3:441,3:441 

:7,39:433,39:445 

:440,3:440,3:441 
1433,3:437,3:437,.3:440,3:440,3:441,3:442,3:442,3:442, 
1442.3:442,3:442,3:442,3:442,3:443 

1440,3:443,3:444 


VHMCHK 3: ae 


VHP IDO 
VLCODE 
VLOC 
VLST 
VMAP 
VMAPCH 
VMAPL 
WAIT 
WAITPC 
WAITSP 
WAITW 
WAKEUP 
WARM 


WATCH 

WATCHO 
WATCH1 
WATCH2 
WATCHH 


WHEREV 
WHF 2H 


WHH2V 
WHHI 


WHHTP 
WHI2M 


WHIH 
WHM2T 


WHRUT 
WHT PH 
WHTSK 


WHV2H 
WMLOCK 
WOPS 
WORDP 
WORDS 


teNONNONWANNAYW GO 196991 09. 6G) =e 1G 1 OD 


QwQaw i 


3 


—~ ee WH =H WWW 
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3:440,3:444,3:444 
:8 


> ae 2 | 
:29,3:418,3:423 
:418,3:419 

7414 


2:22,3:9353 


!7,39:7.3:7.3:40,3:125,3:240,3:262,3:265,3:268.3:270, 
$287,.3:305,3:315,3:316,3:321,3:445 

:400,3:401,3:415 

$117,3: 117 

1128,3:117,3:401,3:401,3:415 
2128,3:117,.3:401,39:401,3:415.3:415 

:399,3:400,3:415 

:128,3:400,3:401,3:415 

2128,.3:417 3401 

$128,3:117.3:401 

:70,2:70,3:359,3:359 
245,1:46,1:46,1:62,1:63,1:63,1:63,1:112 

ST 22 ETC Qa7 

ad 

:51,3:52,3:238,3:249,3:286,.3:385 
:54,3:85,3:159,3:164,3:168,3:236,3:255,3:276 
:100,3:100,3: 147 
:7,2:7,3:50,3:50,3:50,3:51,3:51,3:53,3:53,3:54,3:56, 
:57,3:141,3:169,3:216,3:217,39:238,3:239,3:249,3:255, 
:286,3:286,3:332,3:332,3:332,3:332,3:338,3:385,3: 388, 
:390,3:391,3:392 


7 
:85,3:147,3:159,3:351,.3:352,3:355,3:356,.3:357,3:357, 
:376,3:376 

:338 
:87,3:241,3:249,3:249,3:250,3:255,3:255,3:257,3:259, 
:262,3:263,3:276,3:276,3:300,3:307 


:100,3:100,3:100,3:141,3:141,3:147,3:148,3:150,3: 169, 


:170,3:236 
:91,3:270,3:283.3:286,3:286,3:290,3:297,3:322,3:322, 
:324,3:338 
:85,3:154,3:155,3:156,3:157,3:158,3:159,3:164,3:167, 
:168,3:168 


2164,3:216,3:217,3:218,3:219,3:226,3:229 


:100,3:100.3: 168,3:232,3:233,3:235,3:236,3:255,3:276, 
:279,3:283,3:286,3:286 

:333 

$28, 1256, 1°56, 1:56. 156 

985: 428.428. 185.4 43, 1233,.1294, 1334 
1:342,3:342,3:344.3:344 

£6, 4:17, 1920, 1223, 4227 122704290; 1:36, 1:90, f::31, 1:32; 
:36,71:36, 1:37.1:37.41:37, 1:98, 1:38,1:40.1:40.1:43, 
243,1:47,1:47,.1:47.1:48,1:56,1:63,1:66,1:67,1:74, 
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WPCINT 
WS 
WSLEEP 


WSLSP 
WSPINT 
WST 


WSTAGE 
WSTCOM 


$%PLST 
$ADDPA 
SAPPLY 
$ARGTS 
$CLKFL 
$CLOCK 
$DOPAG 
$DOPAT 


1:78,1:79,1:79,1:79,1:79,1:79,1:79,1:79,1:80, 1:81, 
1:82,1:84,1:85,1:85,1:88,1:88,1:90,1:94,1:94,1:94, 
159457296 .:12: 108. 1107.1: 107.4 5109. 82972. 1257 125 1.146, 
2:38,2:399,2:40,2:43,2:63,2:63,2:63,2:70,2:96,2: 106, 

2: 106.2: 109.2:115,2:126,3:9,3:9.3:23,9527.39:27,3:30, 
3:30,3:30,3:40,3:40,3:40,3:40,3:40,3:43,3:43,3:43, 

@:43,3:43.3:43.3:43.3:43.3:43,3:43,3:43,3:43,3:49, 
3:57,3:64,3:65,3:69,3:69,3:69,3:71,3:71,3:72.3:72, 
3:72,3:74,3:78,3:78,3:79,3:81,3:81,3:89,3:94,3:94, 
3:95,3:96,3:96,3:96,3:96,3:96,3:96,3:98,3:98,3:98, . 
3:99,3:99,3:99,3:99,3:99,3:102,3:103,3:112,3:114,3:118, 
3:127,3:128,3:134,3:144,3:146,3:151,3:162,3:176,3:176, 
3:176,3:178,3:179,3:179.3:182,3:187,3:187,3: 188,3:189, 
3:189,3:191,3:192,3:194,3:194,3:195,3:195,3:195,3:195, 
3:195,3:195,3:195,3:197,3:197,3:197,3:197,3:197,3:197, 
3:200,3:201,3:202,3:204,3:208,3:208,3:208.3:208,3:209, 
3:3210,39:211,3:211.3:211,3:211,3:211,.39:229,39:224,3:225, 
3:225,3:226,3:228,3:233,3:242,3:243,3:243,3:244,3:244, 
3:247,3:247,3:252,3:265.3:269,3:269,3:282,3:293,3:293, 
3:293.3:294,3:301.3:301,3:307,3:319,3:319,3:319,3:319, 
3:319,3:329,3:329,3:335,.3:336,3:336,3:344,3:347,3:352, 
3:352,3:359,.3:362.3:362,3:371,3:373,3:373,3:382,.3:386, 
3:386,3:386,3:386,3:386,3:388,3:396,3:396 "3:399,3:400, 
3:405,.3:407,3:412,3:415,3:415,3:422,3:437,3:440,3:440, 
3:442,3:442,3:442,3:442,3:443 


1:26 1:26,1:63 

1:81 12132: 70,33 422 321053210 

1:45 1:49,1:54,1:60,1:65,1:66,1:74,1:76,1:78, 1:79, 1:80, 
1:118,2:48,2:51,2:54,2:56,2:57,2:60,2:65 

T3722 1:45,1:49,1:63 

1:26 1:63 

1754 1:13, 1:92,1:35,1:35,1:36.1:38,1:99,1:50, 1:50, 1:50, 
1350; 1:50,4:53,1574,4:°75, 1984, 15119,2:52,2955),2:127,° 
3:49,3:99,3:212 

1:22 1:45,1:46,1:46,1:47,1:62,1:63,1:63,1:63 

1354 1:47 

1:50 1:86,1:94 

1:5 1°81.7:54 

= 3:23 

= 3:334 

= BEAT 2248 QUT A247 2847 2s 1752229 -2:29),2:29:,229'. 
2:29 ,2:29,3::5 

3:320 3:320 

3:238 3:239,3:239 

3:317 33317 

1: 100 71:99,1:100, 1: 105,3:41,39:58 

= 2:6 

= 2:129,3:42,3:42,3:125,3:316 

2:17,2:29 LES, 256. Very 2Erth  Qat7. 2e1F 2594 - Vela BeBe. « 
2:229),.2'5 29,2729, 2:29:,2:30.,2533.2:393..3272 

> 2:27 

1:5 25.4195. 1S. Acs 

= 426,.446,5U56;,126: 96. £212: 296,.2:6.52:7 

23472529 91229 

S327, 2tae 

2:27 2:30,2:30 

ai arB,237T 

st Ls A eT, Cet As A et Tota ea ae, 
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A MF PE As 1 TE, TA TE eT TA HE TA, 


4:14,4:44,1:14,1:12,2:81.9:35,39:64,3:65,3:69,3:69,. 
8571, S271. 3072, 8572;, 3:3 72.3:74).9¢ 74, 3:81.98 

$DOPPA - 224 2240227227522 16.2228 ‘ 

$ENTER - 138234 224: O24 224)224,/994,216 226.2297, 257 2185228), 
2427 

$EXIT 2:319.:2219..2331,2:31 22 1S .2227 

$FAST 2:30 

$FCBAR 2:15,2:15 2215..2215, 2215, 2216,,2:16 

$FINCH 1:12 

$FINIM 3:35 3:445 

$FINKE 14:12 1:119 

$FINST 14:11 1:119,2:138,3:445 

$FIXCH 1:12 3412 

$IFDFi - Disi7, 

$INIT 2:4 2:9 

$INITR 1:5 

$IR1 bo Bf 2:6,2:6 

$IROUT 2:6 

$ITABL 2:7 2:136 

$LCCHK 2:16 2:15 

$LIST = 15 4's5y TSS. (V4, 24 234i, 226,236,257 

$LSCHK 2:28 23:27 

$MAPCD - 3:125,3:125,3:125,3:185,3:316,3:316 

$MAPCH 2:4 2:4 

$MAPPK - 3:125,,39: 125,39: 125,3:125,3: 125.3:212.39:217.9:217 

$MAPRT - 3:125,3:125,39:125,3:185,3:212,3:217,3:217,3:316,3:316 

$NO 2:17,.2:29 

$OPT 2:17,,2:29 2515..2927 

S$PGKEY. 15,1425 155,925 

$PHEAD 2:16 3:16.27 46 

$P1ID 2:27 2327 (2527 

$PID1 2:6 2:6 

$PINIT 2:6 237 5 2e8 

$RATE 2:15 2:16 

$RINIT 2:6 27,233 

$SHEAD 2:30 2:28,2:28 

$SLOW 2:30 

SSTACK (2:415,2:45,2:18 2215 :2:15.2318.2:16 

$TIMER 1:5 

$TITLE 3:5 8:5 

$XINIT 2:4 2:4,2:4 

Is 4::4,2315,2:23 

PHYS - ET Oe a 

%3SPAC 2:112 2°96 ,.2:112.2: 119,.3:65:;.9: 70.3: 71,,.3:72,3:72 

%CCHN 2:27 2:30 

%CNT 1:6,1:6,1:6.1:6 1:6,1:6.1:6,1:6 

%*CODE = 126,426, 126 

%CR 1:18 

%DOT 2:16,2:28 2:16 ,2:28 

%DR 1:18 1:34 

*FLG VS, 27 S547 QA 2817 22:29), 22729 (2:29 (SQ 2ZoT 2017 62829 

%ICHAI 2:7 OF 2tt 

#IKEY - 2:4,2:4 

%IKEYS 2:4 

*IKEY4 2:5 

$#IKEYS 2:5 

%ILST 2:4 ,2:6 274,2:34,2:4,2:4,2:4,2:4,2:6 


%IMAP 
%IMAP3 
*IMAP4 
*IMAPS 
*INI 
*IPAGE 
AKEY 
*LIM 
%M 
%*MAP 
%MAPO 


%MAP 4 


MAP 2 


%MAP 3 


%NCODE 
%NDOT 
%NOVAR 
%NSPAR 
%NTYP 
YNTYPE 
YNVARS 
%OPTV 
%PHY 
%PLST 
%RADIX 
*RLST 
%SR 
%*SRADI 
%TAB 
“TOTAL 
%VARS 
-*INIT 
-AVARS 
.. FOO 
. INSER 


»LALL 
»XALL 


NOON 


P-~e s ONONA Te 1 does d= 


i_—iNnt 


sa 


Nn 
~“ 


on 


224,234 


—_s 


—=NON+]--]-NON]=]N=- 0-2 000 NNO] 8 WNH-NDN=-NN = 
Ounannna 


—~=-WQWW0--WNH-- = 


716,2:16,2:28,2:28 

£12),9948 9249, 1256. 1:56, 194. 1:94, 49921:92.2: 16, 
$28,2:51,2:64,2:64,2:65,2:81,2:126,2:1391,2: 131,3:93, 
2127,3:326,3:334 
734,1:34,1:39,1:47,1:49,1:58,1:65,1:66,1:67,1:88, 
788,2:4,2:44,2:44,2:49,2:50,2:51,2:54,2:63,2:81,2:126, 
:49,3:422,3:422 

247), 12471387 ,294,.2¢49, 250), 2350:,.23 126), 2's 128),2: 128, 
7128,2:129.3:49,3:50,.3:50,3:52.3:54,3:54,3:56,3:56, 
757,3:85,3:85,3:91,3:247,3:259,3:260,3:270,3:278, 
:279,3:285,3:288,3:290,3:290,3:297,3:299,3:328,3:330, 
7:335,3:401.3:401,3:401.3:410,.3:410,3:418,3:419,3:420, 
:423,3:423 

748, 12491254, 1356, 1:94,'2:'4,,2:39),2:350) 2:81.29126, 
7259 ,3:329,3:420 

214,421 e8:93,.3:: 12733423 


ry fee i f 
WV, UeS4,. 172 


a 
+az 
2 
5 


N= 
Nu 
~ 


2415 


1:34,2: 
296 226 V7 V7 L728. 298 


:28,1:28 

S46 159), 45 9S, VSS) 234,22 10..2::'34:,2:°394),.25°74,.2% 128,338, 
238,3:48,3:61,3:75,3:82,3:92,3:116,3:126,3:130,3:140, 
2172,3:180,3:230,3:240,3:325,3:340,3:379,3:432,3:432 
:23 

:23 


rap (Source/Page) 
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(STAGEK/LCode) 
(STAGEC/Re1Code) 
(STAGEK/LCode) 
(STAGEK/LCode) 
(STAGEK/LCode) 
(STAGEK/Re1Code) 
(STAGEC/Re1Code) 
(STAGEK/LCode ) 
(STAGEK/LCoffe ) 
(STAGEK/LCode) 
(STAGEC/Re1Code) 
(STAGEC/RelCode) 
(STAGEK/Re1Code) 
(STAGEK/LCode) 
(STAGEK/Re1Code) 
(STAGEK/LCode ) 
(STAGEK/LCode ) 
(STAGEK/LCode) 
(STAGEK/LCode) 
(STAGEK/Re1Code) 
(STAGEK/Re1Code) 
(STAGEK/Re1Code) 
(STAGEK/Re1Code) 
(STAGEK/Re1Code) 
(STAGEK/Re1Code) 
(STAGEK/Re1Code) 
(STAGEK/LCode) 
(STAGEK/LCode) 
(STAGEK/LCode) 
(STAGEK/Re1Code) 
(STAGEC/Re1Code) 
(STAGEC/RelCode) 
(STAGEK/LCode) 
(STAGEC/Re1Code) 
(OPSYS/LCode) 
(STAGEC/Re1Code) 
(DDT/DDTCode ) 
(FAKREL/FakCode) 
(FAKREL/FakCode ) 
(CONFIG/RelCode) 
(FAKREL/FakCode) 
(CONFIG/Re1Code) 
(STO/LCode) 
(FASTTO/Warm) 
(FASTTO/Warm) 
(FAKREL/FakCode) 
(CONFIG/Re1Code) 
(FAKREL/FakCode) 
(IMPDDT/DDTCode) 
( IMPDDT/DDTCode) 
(CONFIG/Re1Code) 
(CONF IG/Re1Code) 
(CONFIG/Re1Code) 
(CONFIG/Re1Code) 
(CONFIG/Re1Code) 
(CONFIG/RelCode) 
(CONF IG/Re1Code) 


Loe: 


Description 


Unexpected Quit--mem ref fail (H) - page 31 
Ctd STAGE mem mgmnt--OK if Strtup/Rstrt (H) - page 51 
RTC stppd--switched to new RTC (H) - page 35 


Local Kernel Cksum Broken-FATAL to Proc (H/S) - page 52 
Unexpetd intrpt (Poss RESET/ATTN) (H) - page 50 
BBC map fail (Poss bad coupler) (H) - page 82 


Jiffy clock stopped (H) - page 63 

Sys missed a tick (H) - page 48 

Quit in cksum param (H) - page 66 

Quit during cksuming (H) - page 66 

Stge LC: Local code cksum broken (H/S) - page 36 

Stage MM: Not Enough Memory (H) - page 40 

Stge vars area quit--12 TRAP means fix (H) - page 76 
Lost our comm pg (H/S) - page 47 

QUIT on BCM coupler *** CALL BBN MAINT. *** (H) - page 81 
Hung on invid s/w lock - page 38 

Stge LK: can’t find a clk - page 53 

Rmt pwr fail E/F Bus (NOT PROCS) (H) - page 23 

Can't find an RTC(CALL MAINT if RSTRT fails)(H) - page 35 
Stge CD:Bad Proc Id (H/S) - page 84 

BIk Trans Timeout (proc trbl) - page 87 

BLT Target proc not in tbl - page 91 

Non-existant proc in b1t?? (S) - page 92 

No I/0 bus for BBC (H) - page 93 

Broken Coupler *** CALL BBN MAINT. *** (H) - page 80 

BBC fail (CALL MAINT if 1—£ TRAP occurs) (H) - page 95 
Proc RSTRTD after Pwr fail (H)- page 35 

Proc Pwr Fail (H) - page 35 

illeg level 4 intrpt (H) - page 35 

Stge vars mem fail *** CALL BBN MAINT. *** (H) - page 75 
Spare pg cksum differs (H/S) - page 44 

Solid mem parity err *** CALL BBN MAINT *** (H) ~- page 55 


No usble comm mem (MEM PROB. CALL MAINT) (H) - page 55 
Quit retries ok on 2nd mem ref (H) - page 62 
got illegal pid value - page 125 , 


S/W watchdog timer expired}} - page 70 

DDT changed psbs (VISTAR using new BUS) - page 85 
IMP reinit (H) - page 421 

smashed buf ptr--may cause retrans - page 387 
Changing buffer page allocation - page 98 

Changing buf pg alloc - page 417 

Swapping to F device - page 112 

lock timed out - page 128 

Main clock stppd swtchd to bkup RTC (H) - page 119 
no working backup RTC (H) - page 119 

IMP num invid (CK RTC SWTCHS) (H) - page 408 

RTC lost--assoc w/traps 10A and 108 (H) - page 102 
Node ovrhting--R2=BUS R4=TEMP (H) - page 408 
Invild attmpt to use Xpatch - page 63 

Invid attmpt to enable ovride - page 64 

modem lost on Prim bus CALL MAINT (H) - page 110 
Host lost on Prim buss CALL MAINT (H) - page 111 
spare interface disappeared CALL MAINT (H) - page 112 
swapping modem interfaces CALL MAINT (H) - page 110 
swapping host interfaces CALL MAINT (H) - page 111 
2 interfaces, one device (CALL MAINT) - page 107 
Dbld PID intfc differs CALL MAINT (H) - page 107 
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(CONFIG/Re1Code) 
(FAKREL/LCode) 
(FAKREL/LCode) 

( IMPSUB/LCode) 
(FAKREL/FakCode) 
( IMPSUB/LCode ) 
(FAKREL/LCode) 
(LOCAL/LCode) 
(FAKREL/DDTCode) 
( IMPSUB/LCode) 

( IMPSUB/LCode) 

( IMPSUB/LCode) 
(IMPSUB/LCode) 
(VHA/DDTCode) 
(VHA/DDTCode ) 
(VHA/LCode) 
(VHA/LCode) 
(VHA/DDTCode) 
(VHA/DDTCode) 
(FAKREL/FakCode) 
(FAKES/FakCode) 
(FAKES/FakCode) 
(FAKSUB/FakCode) 
(FAKSUB/FakCode) 
( FAKSUB/FakCode) 
(FAKSUB/FakCode) 
( FAKSUB/FakCode ) 
(FAKSUB/FakCode) 
(FAKSUB/FakCode) 
(FAKSUB/FakCode) 
(MODEM/LCode) 
(MODEM/LCode) 
(MODEM/LCode) 
(MODEM/LCode) 
(MODEM/LCode) 
(MODEM/Warm) 
(ROUTE/Warm) 
(CONF IG/Re1Code) 
(MODEM/LCode) 
(MODEM/LCode) 
(UPDWN/Warm) 
(MODEM/LCode ) 
(MODEM/LCode) 
(MODEM/LCode) 
(MODEM/LCode) 
(MODEM/LCode) 
(UPDWN/Warm) 
(TASK/LCode) 
(TASK/LCode) 
(MODEM/LCode) 
(FAKREL/DDTCode) 
(ROUTE/Warm) 
(ROUTE/LCode) 
(ROUTE/Warm) 
(ROUTE/Warm) 
(ROUTE/Warm) 
(ROUTE/Warm) 
(ROUTE/Warm) 
(ROUTE/Warm) 

(RC ~“/Warm) 


5SA56: 
3D2A: 
3D3A: 
1448: 
50CC: 
1576: 
3D12: 
1773 
5622: 
1438: 
1356: 
1364: 
1582: 
5764: 
5684: 
3E76: 
SEAB: 
S6BE: 
SGAC: 
SA4A;: 
4866: 
481E: 
41BG6: 
41AC: 
43C0O: 
446A: 
4288: 
427E: 
4478: 
4490: 
2166: 
208A: 
2162: 
1DSE: 
2020: 
4824: 
4Dic: 
5ACO: 
22F8: 
1D7A: 
469C: 
2178: 
1E72: 
1EAG: 
1EAE: 
232E: 
4522: 
2490: 
2468: 
2104: 
54A4: 
53D2: 
2420: 
55EC: 
SSFE: 
S61C: 
588C: 
S98E: 
S9BO: 
54A2: 


BLDBLK: dynamic blocks area full 
free list in loop - page 389 
lost the free list - page 389 
threw away free list tail - page 52 

Recovd a timed-out buf - page 388 

buffer ownership error - page 56 : 

free list buf err--WHERE nonzero - page 389 
ringc overflow in rstart - page 82 

ring structure broken in timeout - page 395 
free list error, non-zero where - page 52 
tried to flush non-buffer - page 49 

tried to flush non-owned buffer - page 49 
fixed half-empty queue - page 56 


- page 109 


VHAREL: finished VHALIS recomputation 
VHAREL: Detected VHA table error 
IHVHA: No virtual address found 
TSKVHA: No virtual address this source 
VHAREL: Too many VHA numbers 

VHAREL: VHA IMP number too big 


Imp going down (OPRTOR INIT) - page 427 
Neighbor IMP wants a reload - page 353 
Flushing Reload Packet (NO BUF SP) - page 352 
Host wanted a buffer - page 327 

No host block - page 327 

Host sending a buffer - page 334 

Host sending leader - page 336 

Host wanted a leader - page 330 

No host block? - page 330 

No host block? - page 336 

Bad buffer from IH - page 336 


Modem bad end ptr *** CALL MAINT *** (H) - page 155 


modem 
Modem 
modem output got quit - page 140 
Start pointer write failed - page 152 
Bad cksum in routing update - page 144 
bad update checksum - page 184 
scrambled modem parameter block - page 110 
bad sentq - page 168 
lost SNDING buffer - page 140 
Master line died ~- page 134 
Modem s/w failure - page 156 
broken cksum on retransmission - page 147 
64 retransmissions: killed line - page 148 
32 retransmissions: discard packet - page 148 
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Closing "MODEM" 
Loading "DEL" 
Closing "DEL" 
Loading "ROUTE" 
Closing "ROUTE" 
Loading "TASK" 
Closing "TASK" 
Loading "IMP.WARM" 
Closing "IMP.WARM" 
Loading "FAKSUB" 
Closing "FAKSUB" 
Loading "FAKES" 
Closing "FAKES" 
Loading "FAKREL" 
Closing "FAKREL" 
Loading "VHA" 
Closing "VHA" 
LCode patch space: 3ED6 to 4000 


Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 
Page 


RelCode patch space: SCBA 
DDTCode patch space: 57A8 
Warm patch space: 5E70 to 
FakCode patch space: 5SAE8 
LTVars patch space: 42 to 
LVars patch space: 288 to 
Vars patch space: 7400 to 
RelVars patch space: 5FFE 
DOTVars patch space: 5F80 
PkgVars patch space: 5EB4 
FakVars patch space: 5F96 


to 6000 


VarPat patch space: 656E to 65B0 
LKPatch patch space: 332 to 352 


RKPatch patch space: 4126 


332 SECONDS RUN-TIME 
Loading "LPMAC" 
Closing "LPMAC" 
Loading "PROC" 
Closing "PROC" 
Loading "STRIP" 
Closing "STRIP" 
Loading "STAGEC" 
Closing "STAGEC" 
Loading "DDT" 
Closing "DDT" 
Loading "OPSYS" 
Closing "OPSYS" 
Loading "LPMAC" 
Closing "LPMAC" 
Loading "PROC" 
Closing "PROC" 
Loading "STRIP" 
Closing "STRIP" 
Loading "STAGEC" 
Closing "STAGEC" 
Loading "DOT" 
Closing "DDT" 
Loading "OPSYS" 
Closing "“OPSYS" 


66 SECON RUN-TIME 


to 4166 


Loading "STAGE.CFG" 
Closing "STAGE.CFG" 
Loading "STAGEK.PLR" 
Loading "IMP.PKCORE" 
Loading "XSIOIN" 
Closing "XSIOIN" 
Closing "IMP.PKCORE" 
Closing "STAGEK.PLR" 
Loading "STAGE.CFG" 
Closing "STAGE.CFG" 
Loading "STAGEK.PLR" 
Loading "IMP.PKCORE" 
Loading "XSIOIN" 
Closing "XSIOIN" 
Closing “IMP.PKCORE" 
Closing "STAGEK.PLR" 


84 SECONDS RUN-TIME 
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luribus IMP PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 1 
IMP .PLR; 1 PAGE 1 


-title pluribus IMP 
;Get symbols from the IMP Operating System (IMPOPS) Assembly 
.insym impops.sym 
0001 LBig = 1 
;Assume we are debugging 
0000 Debug = O 
;Assemble VDH with the program 
0000 VDHSw = O 
;Don’‘t assemble support for dual M/I busses 
0001 MISw = 1 
;Don’t assemble Platform Satellite Extension features 
0001 PSE = 1 
;Platform Virtual Host Addressing (Added 3 NOV 82 by Callis) 
0001 VHA = 1 
;Maximum number of IMP/IMP modem channels 
0080 Nmdlim = D128 ;multiple of 16 (changed to 128 as per UR) 


(3 NOV 82 by Callis) 


-INSRT IMP.MAIN 


pluribus IMP PLURIBUS V2.9B 25-Jun-87 10:57:29 


IMP .MAIN; 1 PAGE 1 


.comnt | 
Pluribus IMP system 


Maintenance/statistics stuff: 
NCC stuff: trace,various stats,etc. 


Modem stuff 


Reliability stuff 
HI reliability 
RTC reliability 
Base reliability 
Queue reliability 


Host stuff 

non-blocking hosts 

Host test 

handle host hardware gone away 
2? reliable allocate protocol 


DDT stuff 
extension DDT 


General changes: 
make POINT a logical pointer 


make CHAIN, POINT, etc. live with buffer (i e chain thru all memory) 


RADIX H10 
bandwidth improvements 


processor use, high-speed lines, buffering, 


Stage/IMP stuff: 

Amputation OPHELPs/TENEX support 
processor test? 

random amputation 

split without restarting 

copy of local in common? 


PAGE 2 


strip lengths 


401 


pluribus IMP PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 3 
IMP .MAIN; 1 PAGE 2 


484-7326 UR 
926-3072 Kats 
Drew: 


NCC 661-0100, x3571, 800-225-1604, 1922 
TENEX 491-6169, x4358 


pluribus IMP PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 4 
IMP .MAIN; 1 PAGE 3 
.comnt | 


ophelp routine 
IMP Ophelps 


Ophelps are used to simplify common operations on the IMP. Generally 
Ophelps consist of two letter commands whose initials indicate somewhat 
the purpose of that ophelp. The current list of available ophelps follow. 


#HB return the parameter block address of host # 
#HAL loop (crosspatch) host # at the IMP interface 
#HM loop VDH # at the Bell modem 

AHU remove all loops from host # 

KI return the address of the IOKILL table 

KP return the address of PROHLT to kill processors 


(not yet implemented) 


#MB return the address of modem block for modem /# 
AML loop modem # at the imp interface 
#MM loop modem # at the Bell modem 
#MU remove loops from modem # 
#NH Nice halt the IMP forever \ 
#NS Nice halt and restart the IMP x 
#NR Nice halt and reload the IMP \ 
> # = password 
#PH Panic halt the IMP forever 
#PS Panic halt andrestart the IMP / 
HPR Panic reload the IMP / 
#RN Reload neighbor from imp # 


<esc>C Clear the trap table 
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pluribus IMP PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 5 
IMP .MAIN; 1 PAGE 4 


;System Version Numbers 


;get version number for the IMP and title the listing 
; this could be extended so that the version number’s oddness 
; or eveness would determine the setting of LBIG. 
-if pi ;just pass one 

sprint /version: / 

.ttyma impver 

hsmver= 0’ impver ;system version number 

.endm 

-endc 


«macro $title x 
-title Pluribus IMP ‘x 
.endm 
$title \hsmver 
0000 gomptv=0 yrouting compatibility version number 
;Test the switches we need for rest of assembly 
testsw <LBig,Debuda. VDHSw,PSE,VHA> 
.if ndf Nmdlim 
-print |Nmdlim undefined, assumed 16| 


Nmdlim = D016 
-endc ;ndf Nmdlim 


Pluribus IMP 1301 PLURIBUS V2.9B 


IMP .MAIN; 1 


0400 
0600 
0001 


0040 
5E80 
SEOO 


PAGE 5 


25-Jun-87 10:57:29 PAGE 6 


;Define the initial pages to load 


codlod= H400 
faklod= H600 
.if z LBig 
pkglod= H800 
ncplod= HAOO 
.endc 


;Page origins 
loctvs= HAO 


Pkgvst= HS5E80 
fakvst= HSEOO 


:local vars in exec core for TIP 
;Package vars always start here. 
;Fake vars 
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Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 7 
IMP .MAIN; 1 PAGE 6 


;Define the physical pages for the LMAP table 


.comnt | 

The system memory can be laid out in two ways; one will minimize the 
use of local memory so that the TIP can be run; the other will maximize 
the use of local memory to obtain higher throughput. 


If LBig is zero, some amount of common memory code and the routing code 
will be placed on a new code page called the "Package" page. Some 
parts of the IMP normally (i.e. when LBIG = 1) in local and defined as 
being in “HLCODE" will be moved onto the "Warm" page. ¢ 


If LBig is one, the "Package" page is defined to be the common memory 

page which holds "Warm" code. Routing code will be placed on the Warm 
page, making room for the routing variables as necessary. Those parts 
of the IMP in “HLCode" are located in local memory. 


VDH code, if present, always goes onto the DDT page. 


0001 .if z LBig 
CODEPAGE COD, PHYSICAL CODLOD, LIMIT M1 
CODEPAGE FAK, PHYSICAL FAKLOD, LIMIT FAKVST 
CODEPAGE PKG, PHYSICAL PKGLOD, LIMIT PKGVST 


Defpage Warm, map code, ltimit mi, physical cod, org * 
Defpage PkgCode, map code, limit pkgvst, physical pkg, org * 
Defpage PkgVars, org pkgvst, limit m1 

Synpage HLCode,Warm 

Synpage RutCode,PkgCode 

Synpage RutVars,PkgVars 

maprut = mappkg 

wIFTF 

CODEPAGE COD, PHYSICAL CODLOD, LIMIT PKGVST 

CODEPAGE FAK, PHYSICAL FAKLOD, LIMIT FAKVST 


Defpage Warm, map code, limit pkgvst, physical cod, org * 
Synpage PkgCode,Warm 
OOB4 mappkg = mapcod 
Defpage PkgVars. org pkgvst, limit mi 
Synpage RutCode,Warm 
OOB4 maprut = mapcod 
Synpage RutVars,.PkgVars 
Synpage VHACode ,DDTCode 
OOB2 mapvha = mapddt 
Synpage VHAVars,DDTVars 
Synpage HLCode,LCode 
.endc 


000 1 Vioc=1 ;VDH in common memory. 
Synpage VDHCode ,DDTCode 
OOB2 mapvdh = mapddt 
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Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 8 
IMP .MAIN; 1 PAGE 7 


;Define remaining pages 


DESVPAGE Bi 
DESVPAGE B2 


OPTVPAGE B3 
OPTVPAGE B4 
OPTVPAGE B5 
OPTVPAGE B6 
;Define the logical pages 
Defpage LTVars, org loctvs, limit locvst 2 
Defpage FakCode, map code, limit fakvst, physical fak, org * 
Defpage FakVars, org fakvst, limit m1 
Defpage PkgVars, org pkgvst, limit m1 
Synpage VLCode,LCode 
;Define some Stage Configuration Stuff 
DEFREL ,reltim ;Rely page TO pointer 
@ 
:Minimum number of processors to run the IMP 
DEFPCNT 2 
;Now load in all the IMP files 


- INSERT "“IMP.VARS",VARS 
. INSRT IMP.VARS 


Pluribus IMP 1301 
IMP.VARS;93 


0018 
0004 
0008 
001C 
0008 
OO7F 
01390 
0002 


OOOA 
OOOA 
OO1E 
OO3F 
OO1F 
0027 
OOF 1 
0005 
0000 
0001 
0000 
0000 
0000 
0028 


0480 
0258 
0078 
0104 
O3E8 
OOOA 
8000 


0100 
0200 
0500 
0600 
0700 
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PLURIBUS V2.9B 25-Jun-87 10:57:29 
IMP Variables 


PAGE 9 


-Stitle IMP Variables 


PAGE Dummy 


;some system parameters 


nrh= D24 

nfh=4 
nfh2=nfh*words 
th=nfh+tnrh 
mmd= D8 

nimp= D127 
nline = D400 
noimpO=words 
;nach=8 


arpano= D10O 
mynet=arpano 
bbntip= D30 
bbn63= D63 
cca= D31 
sdac= D39 
tenexc= 0361 
tenexe=5 
tenexn= 00 
nec=1 
ntenex=tenexn 
n1iOxh=ntenex_-6 


:number of real hosts 
;number of fake hosts 


sand in bytes 
;total hosts in system 


;number of modems (neighbors) 
;MNumber of imps 

; (one-way) lines to allow in network 
;imp O not in routing tables 

;Number of ack channels per line 


;ARPANet Net number 
;and that’s where we are 
7 IMP no of BBN TIP 


;IMP no of Backroom BBN machine (proto 516) 


;CCA IMP number 

;SDAC IMP number 

:Host TENEX System C at RCC IMP 
;Host TENEX System E at BBN IMP 
;Host NSA TENEX on Platform IMP 1 
;NCC is on IMP 1 in Platform 

;NCC TENEX Host address 

:3;srceh ;Host number for NCC TENEX 


n10xi=ntenex&srcei >; and IMP number 


seci= D1000/ D25 


sec30=seci* D30 
seci5=seci* D15 
sec3=secit3 


medmin=6*< D10000/ D128> 


rrtime= D1000 
iniall= Dio 
sign= H8000 


modid= H1i00O 
hostid= H200 
hmodid= H500 
satmid= HGOO 
satmhi= H700 


;RTC ticks (pids) per second 
sactually off by a bit 
;mumber of ticks in 30 secs 
; and in 15 : 
; and 3 for tty 


:high-speed (eia) modem 
;satellite modem 
shigh-speed satellite 


;medium ticks in a minute 
;nominal retransmit time. times 8 for slow line 
;normally hold allocates 25G milliseconds 


409 
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;order of locks (seventh shot) 8 August 77 


; tolock 

; back lockhi 

7 pmlock 

; real/fake lockhi, ihloc, i2mloc,m2iloc 

; tmiock,trniok, lockm 

; lockih, lockro 

; nf,free/freend, ltq.siflk,reaslk,bbclok.all consensus locks, 
+ «..d2F1,F2d1,t2f1,f2t1,Imiq,b5ql 
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0000 


0000 
0002 


0003 


0004 
0005 


0006 
0008 
OOOA 
oo00c 


OOOE 
OOOF 
0010 
OO1A 
001B 
001C 
OO1E 


0020 
0022 


0024 
0026 
0028 
002A 
002C 
OO2E 
0030 
0032 
0034 
0036 
0038 
003A 
003C 
OO3E 
0040 


4000 


0001 
FFFE 
0002 
0004 
FFFB 
0008 
0080 
FFOS 
FFF7 


4024 
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PAGE 3 IMP Variables 
-=0 7;*** modem parameter block 
lockm=.+foo 
-blkw 1 ; lock 
phflag: .blkb 1 :line up/down state Flags. 
master = 1 ;master bit 2 
slave = -1?master ;to mask out master 
inhrst = 2 :if set, don’t restart reset 
phup = 4 ;phantom UP bit , 
Phdown = -1?phup ;to mask out UP bit 
redhel = H8 ;rec’d hello this tick 
shihy = H80 ;;sign ;set -> send hello/i heard you 
helst = HFFOO+master+phup ;state bits to send in H/IHY 
cliIrst = -1?rcedhel imask for clearing states 
auxcnt: .blkb 1 ;counter for line logic: 
;reset: ticks since hardware reset 
;master down: consec. hits 
i;Slave: consec misses 
Inei: -blkb 1 ;last neighbor on this line (for SPF) 
neigh: .bIlkb 1 ;neighbor on this line 
shardware statistics 
ckerrs: .blkw 1 shardware checksum errors 
loword: .blkw 14 :modem hardware throughput 
hiword: .blkw 1 ; double precision 
flipper: .blkw 1 ;counts half words 
:hardware configuration ‘ 
motpid: .blikb 1 ;output pid \ these must correspond to 
minpid:.blkb 1 sinput pid / hipid/hopid, bhpid }} 
nullhd: .blkw 5 ;send nulls from here (4 bit boundary} ) 
modem: .blkb 1 : logical modem number + 2 (from 0) 
clockm:.bIlkb 1 j;line "speed": protocol set to use 
maxchn: .blikw 1 7max channel number this line (times 2) 
mloop: -blkw 1 ; loop bits for interface 
; hardware 
iobloc: .blkw 1 ;io0 address 
altio: -blkw 1 ;address of spare interface 
i2mloc=.+foo ;output side variables 
-blkw 1 ;output hardware lock 
snding: .blkw 1 :data buffer being sent (O=none) 
later: -blkw 1 ;fFlush this buffer when sent 
i2mpok: .blkw 1 :rare events flag for modem ‘out 
demand: .blilkw 14 :;demand-reload on this line 
sblk: -blkw 1 ;send pkc block pointer 
snull: .blkw 1 ;send null flags (1 per ACK group) 
mrtime: .blkw 1 ;retransmit time interval 
ssentq: .blkw 1 ;packets not yet acked 
esentq: .blkw 1 ‘ . 
spriq: .blkw 1 :priority output q keep as block}} 
epriq: -bilkw 1 . 
sregq: -bikw 1 :regular output q 
eregq: .blkw 14 ; % 
thrupt: .blkw 1 ;number of ack’‘ed packets 
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4042 


4048 


4092 


0008 
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PAGE 4 IMP Variables 


m2iloc=.+foo 
wblkw 
Ffillin: .blkw 
nxtbf : -b1lkw 
Imiq=.+foo 


-blkw 
smiq: -bilkw 
emiq: -blkw 


mithru: .blkw 
slots: -blkw 
tsex: .blkw 
rsex: .blkw 
infree: .blkw 
chnbsy: .blkw 


dlock=.+foo 


.bilkw 
dpecnt: -b1kw 
delhi: -bikw 


dellow: .blkw 
delave: .blkb 
delbas: .blkb 


rutwait: .blkw 
rutclk: .bilkb 
rmodn: -bIkb 
rutspd: .blkb 


kpoint: .blkb 


ee a 


1 


; input side vars 
:receive side hardware lock 
;current input buffer ¢ 
;buffer to input to next . 


;modem input queue lock 
; input q 


:input throughput From acks 


:free slots on this line 


Nmdlim/ D16 ;transmit ocleven bit (i2m) 
Nmdlim/ D16 ;peceive odeven bit (m2i) 
Nmdlim/ D16 sone if input chan free 
Nmdlim/ D16 rone if i2m chan is busy 


<8 ah ot ob oh ce 


1 


:modem delay variables 
; lock 
;packet count 
thigh delay bits. 
:;low delay bits 
;current average delay. 
;current base delay. 


> line up/down vars 
;tikcnt at entry to reset orf line up 
srouting clock to use 
;unused 
;fast tick interval for routing 


;current pointer into odelt 


odelt: -bikb H8 ;saved delta for ea miss 

Idelt = .-odelt 
Imiss: -blkw 1 :;tikent at last miss 
tdelt: -blkw ;total ticks over last k-1 misses 
k: .b1kb 7K-out-of-N line down parameters 
N: .-b1lkb 
NUP: .bIkb ;ticks to come up 


tikrat: .blkb 
tiktim: .blkw 
ihytik: .blkw 
gotihy: .blkw 


;clock for line ticks 
;protocol clock 
;protocol ticks of line 
preceived hellos/IHY’s 


yupdate retransmission vars 


rtimrl=.+foo 

-bIlkw 
rtrelk: .blkb 
rtrtic: .bilkb 


1 
| 
1 


:lock on retrans variables 


:fast ticks left in tick(must be left byte) 
;fast ticks per retrans tick(must be right byte) 


rticd = D25 ;tick dead lines every 640 ms 

rticl = D1 ;tick live land lines every 25 ms 

rtics = Di5 ;tick high delay (satellite) lines at 375 ms 
rtimrs: .blkw <<nimp-1>_-3>+1 ;two-bit retrans timers 


mspare: .blkw 4 


;minimum spares 


modlen=.+ HE& HFFFO :length in bytes 
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0000 


0000 
0002 


0004 
0006 
0008 
OOOA 
oo0o0c 


OOOE 


OOOF 


0010 
001C 


001D 
OO1E 


OO1F 


0020 
0022 
0024 
0026 
0028 


002A 
002c 


OO2E 
0030 
0032 
0034 
0036 
0038 


4000 


8000 


0009 
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-=0 


lockhi=.+foo 


.b1kw 
hostyp: .blkw 
forbak=sign 
hilo: .blkw 
htemp: .bIlkw 
htemp7: .bikw 
hisav7: .blkw 
nives .bikw 

motpid: 
hotpid: .blkb 
minpid: 
hinpid: .b1lkb 
; exact 4 bit 
ihledr: .blkw 
homode: .blkb 
holhn: .b1lkb 
hibits: .blkb 
tskfok=1 
tskfrf=2 
tskfre=4 
hirset= H8 
hihd: .bikb 
hostup=0 
hrdown= 1 
htardy=2 
hnexis=3 
hstqut=4 
hninit=4 
iobloc: .bikw 
altio: -blkw 
hiloop: .blkw 
hipkth: .blkw 
hihost: .blkw 
hihand: .blkw 
deadsc: .blkw 
himaxp= D9 
hitran: .blkw 
hioldb: .blkw 
hibf: -blkw 
hisp: -blkw 
hiendi: .blkw 
hiptip: .blkw 


1 
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;*** host parameter block 
7*** host-to-imp section 


; lock on parameters 


7nz => fake host, 


7 iF back 


host 


m => back host, 


;nominal dispatch location 


;save r7 


; timer, 


1->0 => host blocked by imp, 


+; -1->0 => host took too long 


;output 


PID 


ipid level for hi 


boundary ( Hxxx0O) 


6 
1 


1 
1 


1 
1 
1 
1 
1 
1 


:imp-host leader (ihloc) 


780 


-> extended leaders 


°O 
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=> real 


: IF field is padding length in bytes 


; logical host number (h2pbIik offset) 


+ Codd) 
: 2 


=> task took 


it 


=> task refused it 


:flag for task to free trn blk for host 
;set by hic (15 sec) timeout 


;host st 


ine down 


ate 

;0 => up 

71 => ready 1 

72 => tardy 

73 => nonexistent 


74=> host recieved quit 


:ichini 


74 => 


;io interface or fake 


:Sspare interface address (or zero) 


jiobloc pntr 


;bits that crosspatch interface 
;construct packet header here 
;host pair word in format used by 
;msg block system 
j;handling type 
:;dead subcodes 
;from ihledr to here may be sent to host as padding 


;maximum padding, 


in words 


imp software uninitialized 


;ptr(transaction block) for current msg 
;ptr(transmit msg block) 

;active hardware input buffer 
;buffer which has an input packet 
;endi for buffer in hisp 

;PTIP temp 


host 


fi — 
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>*** host thruput statistics (continuation of host parameter block) 


OO3A htpmtn: .blkw 1 ;messages to net 
003C htpmfn: .blkw 1 ;messages From net 
OOSE htpptn: .blkw 1 :packets to net 
0040 htppfn: .blkw 1 ;packets from net 
0042 htpmtl: .blkw 1 ;messages to local 
0044 htpmfl: .blkw 1 ;messages from local 
0046 htpptl: .blkw 1 ;packets to local 
0048 htppfl: .blkw 1 ;packets from local 
OO4A htpwti: .blkw 1 ;words to imp 
004C htpwfi: .blkw {1 ;words From imp 
0014 hetrl=.-htpmtn ;length of counters 


>*** jmp-to-host (continuation of host parameter block) 


404E ihloc=.+foo 
OO4E .blkw 1 ;lock on output hardware status bit, etc. 
0050 ihlo: .bikw 1 ;nominal dispatch (locked by ihloc) 
0052 ihtt: .blkw 1 ;software timer (ihloc) 
0054 jhgoin: .blkw 1 ;host timeout (ihloc) 
0056 ihwaq: .blkw 1 :;which queue got serviced last (ihloc) 
0058 jihistp: .blkw 1 ;flag, just sent last pkt of msg (ihloc) 
OOSA specal: .blkw 1 ;flag => send leader (ihloc) 

405C lockih=.+foo 
oosc .blkw 1 ;locks ih queues and one trnbIik state 
OOSE nxtled: .blkw 1 ;num replies,,<last reply>/ H10 (lockih) 
0060 shq: .blkw 1 ;regular host msg queue (lockih) 
0062 ehq: -blkw 1 
0064 shpq: .blkw 1 :;start, host priority queue 
0066 ehpd: -blkw 1 ;end, host priority queue 
0068 ihbuff: .blkw 1 :assign a new variable in host block 
OOGA ijihbufb: .blkw 1 ;copy of BUFB from buffer 
OO6C ihpkth: .blkw 1 ;copy of PKTH from buffer 
OOGE ihseqh: .blkw 1 ;copy of SEQH from buffer 

0070 holen=<.+ HE>& HFFFO sbytes in host block 


;Values for HOSTYP 


8000 forbak = sign ;background "host" 
0000 -=0 
0000 hosreal: -bIikw 1 ;real host 
0002 hosfake: -bilkw 1 :IMP software ("fake") host 
0004 hosvdh: -blkw 1 ;Very Distant Host 
0006 hostip: -blkw 1 ;Arpanet TIP 
0008 hostys: -blkw 4 ;unused 
OOOA hostyA: -blkw 1 ;unused 
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;*** common block for replies 


0000 -=0 
; lockhi=.+foo sback lock 
0000 -blkw 1 
0002 hostyp: .blkw 1 ;nz => fake host, m => back host 
0004 hilo: -blkw 1 :nominal dispatch location 
0006 htemp: -bIlkw 1 
0008 htemp7: .bikw 1 ;save r7 
OOOA hisav7: .blkw 1 ;could be separate background temp 
oleleley hitt: -blkw 1 ;timer, 1->0O => host blocked by imp, 
> -1->0 => host took too long 
OOOE -blkb 1 ;unused 
OOOF hinpid: .blkb 1 ;back host input PID. 
0010 btyph: -blkw 1 
0012 bsegh: .blkw 1 
0014 bpkth: .blkw 1 
0016 bdsth: .blikw 1 
0018 bmidh: .blkw 1 
OO1A bdata: .blkw 1 
001C bmessb: .blkw 1 
OO1E hibits: .blkb 1 :flag bits, see host block. 
OO1F -blkb 1 


0020 baklen=. 
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0000 
0000 
0002 
0004 
0006 
0008 
OOOA 


4000 
OFOO 
ooco 
OO03F 
OOF F 


4000 
OFOO 
OO0CO 
OO3F 
OOF F 


PAGE 8 IMP Variables 
;New format leader words 


netl: .blkw 


1 :network address, OFOO indicates new format 
typ]: -bikw 1 ;message type, trace, octal bits 
hstl: -blkw 1 :handling type(priority)..host 
dstl: -bIkw 1 :destination(or source) imp 
midl: -blkw 1 ;message id and subtype 
lent: .blkw 1 ;message length in bits sans leader and padding 


;Bits in an old format leader 


shiledr: 

forimp= H4000 :for IMP fake host 

hicode= HFOO ;message type 

desth= HCO :;destination host 

desti= H3F ;destination IMP 
destih=desth}desti sboth of the above 
;ihledr: 

frmimp= H4000 >From IMP fake host 
ihcode= HFOO ;message type 

srceh= HCO ;source host 

srcei= H3F ;source IMP 
srcehi=srcei}srceh :the reader is left this as an exercise 


415 
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0000 


0000 
0002 
0004 
0006 
0008 
OOOA 
oo00c 
OOOE 
0010 
OO8E 
OO8E 
00s0 
00392 
0094 
OOs6 
0038 
OOSA 
oo9gc 
OO9E 
OOAO 
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;Words 


buflen: 


.blkw 
.bIkw 
.blkw 
.bIlkw 
-blkw 
-blkw 
.bIlkw 
-blkw 
.blkw 
.bilkw 
-blkw 
-blkw 
.blkw 
.bIlkw 
-bilkw 
-b1kw 
.-bIkw 
-bilkw 
.bilkw 
-blkw 
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in a packet 


;VDH temp 

>network header 

;packet type header 
:software checksum of packet 
;source IMP header 

;message sequencing header 
;packet flags header 
:destination IMP header 
;message-ID header 


D063 ;beginning of real data 


;end of the buffer for software 
;uNUused 
;buffer end pointer 


imess blk for ih if any, else odd (raw pkt) 
;Spare * 
;buffer plus extra words (bufe, etc.) 
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8000 
4000 
2000 
OFOO 


cooo 
0000 
4000 
8000 
cooo 
2000 
1000 
1000 
0800 
0700 
0600 
0400 
0400 
0400 
0200 
0200 
0200 
0100 
0300 
0200 
0002 
0100 
0100 
0000 
OOF F 
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;Bits in neth 


odeven= H8000 
endbit= H4000 
dscpkt= H2000 
chanum= HFOO 


;Bits in typh 


paktyp= HCOOO 
regpk t=O 


gertyp= H4000 
ruttyp= H8000 
ridtyp= HCOoOO 


combit= H2000 
pribit= H1000 
rutup1l= H1000 
trebit= H800 
pflags= H700 
compat= H600 
stubit= H400 
octbit= H400 
alloc= H400 
Tdrrut= H200 
hac= H200 
relreq= H200 
nob1lk= H100 
ruptyp= H300 
iherdu= H200 
spfon= H2 
rutnul= H100 
demrel= H100 
pcore=0 
akbits= HFF 
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;odd/even bit 

;I am high numbered IMP 

;ack and discard this packet 
yack channel this packet 


ypacket type this packet 

:regular packet 

:query or getblik type 

;routing type 

:reload type 

;compatibility of this type 

spriority bit 

snull ‘up’ bit 

;trace if one 

;packet flags (depends on type): 
routing compatibility number (routing) 
;"I am not a stub" (null) 

;packet for octal print (reg, req) 
spacket carries allocate (inc ?, getblik) 
sroute this packet by SPF(set from new leader) 
;dead/hacc (getblk reply) 

;reload request (reload) 

;got-no-block (getblk reply) 

prouting update (routing) 

;hello/I heard you (routing) 

:1=>SPF running (set in Hello/I heard you) 
70 -> routing, 1 -> null (routing) 
;demand reload (reload) 

rpacket core (reload) 

;acknowledge bits 


417 
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CAFE 
0008 
0100 
FFOO 
FFOO 
0009 
0009 


OOOA 
8000 
4000 
OFOO 
OOFO 
OOOF 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 


0008 
000g 
OOOA 


O00Cc 
OOooD 
OOOE 
OOOF 
0004 


0100 
0200 
0400 
0800 


FFFO 
OOOF 
0000 
0003 
FOOO 
8000 
7000 
OFOO 
OOF F 
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;Bits in seqh 
dempas= HCAFE 


rutdat=seqh 
mesnO= H100 


mesnum= D255*mesno 


dsthst= HFFOO 
fblock=seqh+1 
srchst=seqh+1 


;Bits in pkth 


unhacm=pkth 
mitpkt= H8000 
Istpkt= H4000 
fuse= HFOO 
pktnum= HFO 
pktcod= HF 
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IMP Variables 


;reload password 
;beginning of routing data (routing) 
; low-order bit of message number 


;destination host (raw pkt, getblk) 


;message number (reqular, query) 


i; foreign block }byte address} (reg, query) 


;source host (raw pkt, getblik) 


;source hacmem (raw pkt) 
:multi-pkt message (reg mes) 
;last packet of message (reg mes) 
;foreign use number (reg mes) 
;packet message number (reg mes) 
;packet code (reg mess, query) 


;Regular message (type O) codes: 


regtyp=0 
reqtyp=1 
gvbtyp=2 
inmtyp=3 
rfntyp=4 
rfatyp=5 
dedtyp=6 
inrtyp=7 


:regular message 

;request for allocation 

;giveback an allocation 

; incomplete this message 
;ready-for-next-messager 

;rfnm with allocatiion 

irfnm and destination dead 

:rfnm and this message incomplete 


;Query message (type 1) codes: 


ingtyp= H8 
gabtyp= HS 
rsbtyp= HOA 
;unused= HOB 


outtyp= HOC 
gbrtyp= HOD 
rrqatyp= HOE 
rreptyp= HOF 
trnrep=4 


;forus bits (in 


; incomplete query 
;get a receive message block 
;reset this receive message block 


:got out-of-range messaqe 
;get-a-block reply 


;request a reset on this transmit mess. 


;reply to a reset from trasmit block 
sveply if this is a 1 r 
fuse field) 


hostng=-fuse&Ffuse ;low bit of fuse 


meseen=hostnag'2 
mesout=meseen"2 
mesnxt=mesout*2 


;Bits in midh 


messid= HFFFO 
subtyp= HF 
regpkt=O 
rawpkt=3 
gethan= HFOOO 
getpri= H8000 
getmax= H7000 
getuse= HFOO 
locbIk= HFF 


;message ID (reg mess, raw pkt) 
;subtype (reg,raw pkt): 

;regular message 

;raw packet (uncontrolled packet) 
;handling type (getblk) 

:Ppriority handling 

;max length message 

; local use (getblk) 

local block (getblk) 


*bik. 


i fr 
( ; a 
419 
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:***words in reassembly block 

0000 -=0 

4000 reaslk=.+foo ; lock on each reas block 
0000 -bilkw 1 ; lock 
0002 rsf: .blkb 1 :;num of pekts so far 
0003 reasst: .blkb 1 ;reas blk state: 

0001 rsfree=1 ;free 

0002 rsalnum=2 ;allocated with message number 

0003 rsall=3 ;allocated, no message number 
0004 rid: .blkw 1 :id = rec mes blk offset 
0006 remess: .b1lkb 1 :mess number 
0007 ruse: -blkb 1 ;rm bIk use numb 
0008 rmax: -blkb 1 ;highest pkt num this msg 
000g ral: .b1lkb 1 ;number allocated in this block 
OOOA reasq: -blkw 1 ;start of reas queue 
oo0o0c reasqe: .blkw 1 ;end 
OOOE rsfbt: .blkw 1 ;total length in bytes so far 

0010 Irb1lk= H10 
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PAGE 13 IMP Variables 

; ih codes 

mestyp= HFF ;message type field 

77creg=O0 :reg 

cerr|id=1 ;error in hi leader 
cerr32=0 :error in first 32 bits 
cshort=1 ;less than 32 bits in message 
cillgl=2 ;illegal hi code 
cwrgft=3 :wrong format 

cimpdn=2 ;imp going down 

; Uunused=3 

cnop=4 ;nop . 

crfnm=5S ;Pfnm 

chstat=6 ;destination host status 

cdestd=7 ;destination dead 


cimpd=0O ;dest imp dead 
chstd=1 :dest host dead 
cldrp=2 ;dest has old leaders 
chacc=3 ;host access failure 
chini=4 ;host reinit in progress 
chcup= D1i5 ;host just coming up 
; (was dead a millisecond ago) 
chnoti= 0177740 ;constant for no time known 


cerror= D8 ;error in hi data 
cinctr= DS ; incomplete trans 
;cslowd=0 ;dest host took >30 secs 
clong=1 :more than 8095 bits 
cslows=2 ;source host took >15 secs 
clost=3 ;lost in subnet 
cblock=4 ;source imp took > 15 secs 
cimper=5 ;imp detected error after eom 
creset= D10 ; imp-to-host reset - ready line flap 
priled=sign :priority in leaders 


maxled= H700 ymax pkts per msg 
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0000 
0000 


0002 
0004 


0006 
0008 
OOOA 


o00C 


OOOE 


OQOOA 


oooD 


OOOE 
0010 


0001 
0002 
0004 
0008 
0020 
0040 
0080 


PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 22 
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; words in transaction block 

-=0 

trnetl: .blkw 1 ;network leader 

trledr=trnetl ;01ld format leader area 
trtypl: .blkw { :message type leader 
trhstl: .blkw 1 ;host and handling leader 

: also messno and local tm blk 

trdstl: .blkw 1 ;destination IMP leader 
trmidl: .blkw 1 ;message-id leader 
trluse: .blkw 1 :local use of transmit mes blk 


trdeds=trluse ;dead reply reason(if trstat = ttledr) 


trntim: 


trstat=trntimt 


-blkw 


1 ;timeout for this tran bIk (byte) 
;status of tran blk (byte) 


:if trhost pnts to hstblk, trnblk is locked under that LOCKIH 


trpack: 


-blkw 


1 ;packet pointer 


trhost=trpack ;what host queue(if trstat = ttledr) 


trnl= 


;length of trnbik 


:bits in trstat: 


;if trstat=O block is free and locked under trnlok 


sif ttre 
ttrfnm= 
ttmul t= 
ttreq=4 
ttledr= 
ttpend= 
ttgvba= 
ttresv= 
;if non- 


sv=1 
1 
2 


H8 
H20 
H4d0 
H80 
zero 


it’s owned by HI 
yreply to host expected 
:this is a multi-packet req or msg 
srequest is outstanding 
;contains a leader for host (trhost) 
:ready pending to host 
;message used an allocate 
;reserved by host (LOCKHI) 
without ttresv,ttledr, or ttretr, locked by TMLOCK 


421 


Pluribus IMP 13014 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 23 
IMP.VARS;9 PAGE 15 IMP Variables 


;hardware and fakes 


; words in io block 


0000 -=0 
0000 statd: -bilkw 1 
8000 magmod= H8000 ;bit saying modem is magic 
0002 starti: .blkw 1 
0004 endi: -blkw 1 
0002 hrdof f=words shardware vs software end pntr offset 
8000 mendf= H8000 ; last buffer when set in endo, 
;or read in endi 
8000 hendf= H8000 ;ditto for host 
0001 merrf=1 ;error in this transfer (reading endi) 
0001 herrf=1 ;ditto for host 
statih: 
0006 statim: .blkw 1 
2000 mbusy= H2000 
2000 hbusy= H2000 
1000 hready= H1000 
4000 hloopi= H4000 
4000 mloopi= H4000 
8000 mloope= H8000 
0100 hreset= H100 
0100 mreset= H100 
0100 hquit= H100 
0100 mquit= H100 
0008 starto: .blkw 1 
OOOA endo: -bIlkw 4 
statoh: 
Oo00c statom: .bikw 1 
motpid: 
OOOE hbpid: -blkb 1 ;"output" from IH 
minpid: 
OOOF bhpid: -blkb 1 *"tnput" -to HI 
0010 fakesi: .blkw 1 
0012 fakeso: .blkw 1 
4014 lockfd=.+foo ; lock for DOZE side 
0014 -bikw 1 
0016 fioend: .blkw O ;VDH extension starts here 
4016 lockfw=.+foo ; lock for WAIT side 
0016 .bikw 1 
0018 dozesp: .blikw 1 ;doze sp save. 
OO1A waitsp: .blkw 1 ;wait sp save. 
O0O01C stack dz,< D25> ;doze stack. 
OO4E 
OO4E 
OO4E stack wt,< D25> ;wait stack. 
0080 
0080 


0080 ioblen= . ;length of fake IO block. 
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0000 
0000 
0002 
0004 
0006 
0008 
0010 
0012 
0014 
0016 
0018 
0020 
0022 
0024 
0026 
0028 
002A 
002C 
OO2E 
0030 
0038 
0040 
0042 
0044 
0046 
OOSA 
OOGE 
0070 
OOFC 


OOFE 
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IMP Variables 


7*** various assigned pid levels 


-=0 


emtpid: 
stkpid: 
bitpid: 
dsppid: 
bhpido: 
bktpid: 
ddtpid: 
ttypid: 
ihtpid: 
hbpido: 
tbfpid: 
ttopid: 


bkipid: 
bk2pid: 
bk3pid: 
bkOpid: 
conpid: 
fakipo: 
fakopo: 


task: 


stopid: 


rutpi: 


vhpido: 
hvpido: 


nopid: 


-bikw 
-bilkw 
-bilkw 
-bikw 
-blkw 
-b1lkw 
-b1lkw 
-bilkw 
-bilkw 
»bilkw 
»-blkw 
-bilkw 
.bilkw 
.blkw 
-blkw 
-blkw 
.bilkw 
-bilkw 
.bIlkw 
-bilkw 
.blkw 
wbilkw 
-blkw 
.bikw 
.blkw 
-blkw 
»bilkw 
.blkw 


-bikw 


1 


1 


1 


;this PID is empty, go to next 


;PTIP buffer reliability. Also maybe CBT (and next). 
:PTIP fast timeout. 


;spare 
D1iO :VDH to HI (also PTIP to HI) 
010 ;IH to VDH 


punassigned 
bD62+ H8 ;hardware pids go here 
:pid when all real PIDs are empty 


:reserved highest PID 
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;imp system variables 


Page Vars 


62DA time: -blkw 1 ;time in 25.6 ms ticks by main clock 

62DC timea: -blkw 1 ;time by alternate clock 

62DE sync: -blkw 1 ; time synchronized to network 

62E0O myimp: -blkw 1 ;IMP-coming-up timer for hosts 

62E2 mine: »-bikw 1 ;my IMP number 

62E4 clkiup: .blkw 1 ;kept 3 if main clock is running 

62E6 clk2up: .blkw 1 ;kept 3 if backup clock is running 

62E8 clock: .bikw 1 ;addr of clock the system is using 
locdef clklok,<;Lock on RTC’ counters - page 25> 

6000 watchO= H6000 ;loc. for ops to watch 
62EC watch: .blkw 1 ;H1iG-like lites 
62EE watchh: .blikw 1 ; lites for 1G hosts 


;PSE host/modem status display 


42 0t Nz PSE 
62FO mdisp: .blkw D8 
6300 hdisp: .blkw D16 
333.endc 


:flag that is set for reporting restarts, reloads 


6320 rstrid: .blkw 1 ;mark restarts, reloads here 
0001 rstmrk = 1 ;we restarted 
0002 ridmrk = 2 ;we reloaded 


;offsets to highest numbered devices 


6322 hosts: .blkw 1 ;highest host 
6324 modems: .blkw 1 ;highest modem 


;the following must be kept contiguous 


6326 h2pblk: .blkw th 74 fakes (BHIn), then reals or -is 
h2pend: 
635E m2pblk: .blkw nmd ;modem block pointers, then -1s 
m2pend: 
636E v2pblk: .blikw th ;pointers to Fake or VDH blocks, or O 
63A6 husend=. . 


63A6 m2nghb: .bikw nmd ;our n neighbor imps 


an ‘eas 5 
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IMP.VARS;9 PAGE 18 IMP Variables : 

locdef ltq,<; task queue lock - page 26> 
63B8 stq: -blkw 1 ;task queue head 
63BA etq: -bikw 1 
63BC srq: -bIikw 1 ;secondary task queue 
63BE erq: -blkw 1 
; sckq is locked under lockf for fake 3 ’ 
63CO sckq: .blkw 1 
63C2 eckq: -bIkw 1 


;locdef b5ql,<;back5S queue lock - page 26> 
:bSqs: .bikb 1 ;relative rmblk pointer 
:bSqge: .bikb 14 
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;:buffer system variables 


locdef free,<;free buffer list - page 27> 

locdef freend,<:end of free buffer list - page 27> 

locdef nf,<;size of shared buffer pool plus minf - page 27> 
;nf also locks counters and ‘where’ words 


63CA junk: -blkw 1 ;chain word for hardware bit bucket 
63CC maxbuf: .blkw 1 ; index of size of chain 
63CE maxnf : -blkw 1 ;total number of buffers in the system 
63D0 minf: -bikw 1 ;how many buffers reserved total 
63D2 trendf: .blkw 1 :for smoothing nf adjustment 
63D4 nal: -bikw 1 :number allocated (contained in nre too) 
63D6 trenda: .bIlkw 1 ;for smoothing nal adjustment 
;format of the CNTRS block. see WHERE also 
0016 numhst= Di1i*words ;number of hosts the PTIP needs room for 
page Dummy 
0000 -=0 
0000 nmi: -blkw 1 ;modem input 
0002 nvdhi: .blkw 1 ;VDH to hi 
0004 nre: -blkw 1 ;host output (ie reassembly) 
0006 nsf: -blkw 1 ;modem output (ie store-and- forward) 
0008 nrut: -blkw 1 ;routing send buffers 
OOOA ntipit: .blkw 1 :;IMP to PTIP 
000Cc nbak: -blkw 1 ;background hosts input 
;the following are per host tables 
OOOE nhi: -blkw 20 shost input 
OO2E ntipti: .blkw numhst/2 ;PTIP to IMP 
0022 numets=./words 
page Vars ; the counters 
6308 cntrs: .blikw numcts ;buffer usage counts 
641C trends: .blkw numcts ;for massaging the counts 
6460 newcts: .blkw numcts ;for computing new values for counters 


locdef lockro,<;routing send buffers lock - page 27> 
locdef cycle,<;timeout clock counters - page 27> 
locdef trnliok,<;free transaction blocks lock - page 27> 
locdef messt,<;message number timeout non-lock - page 27> 
64AC buftim: .blkw 1 ‘ 
64AE mnobuf: .blkw 1 ;number modem input lost - no buffers 
64BO rnobuf:; .blkw 1 ;number routings lost - no buffers 


( ~ 
) 427 


& 
Pluribus IMP 1301 PLURIBUS V2.9B 25-Jun-87 10:57:29 PAGE 28 
IMP .VARS;9 PAGE 20 IMP Variables 


> *#** prestarter variables 


locdef ringlk,<;restarter ring lock - page 28> 


64B4 ringce: -bilkw 1 : count of entries in ring. 
64B6 ringf: .blkw 1 ; address of first word in ring. 
0018 ringin=30 ; length in bytes of ring buffer. 
64B8 ring: »bIlkb ringin ; ring buffer. 
64D0 ringe=. ; address of end of ring buffer. 


*** back variables 


64D0 relip: .blkw 1 
64D2 tclip: -blkw 1 


7*** timeout variables 


locdef tcgo,<:host wakeup lock - page 28> 


64D6 tcgoa: eblkw 1 
locdef tbkgo,<;back host wakeup lock - page 28> 
64DA tbkgoa: .blkw 1 
64DC stack sto,< D20> 
6504 
6504 
6504 stosp: .blkw 1 :save stack pointer for slow timeout. 


locdef stolok,<:slow timeout lock - page 28> 


6508 stoini: .blkw 1 :slow timeout init; O => needs init; nz => ok. 
650A mintim: .blkw 1 

650C btOai: .blilkw 1 

650E btOaS: .bikw 1 

6510 btOa7: .bikw 1 

6512 ophgo: -bilkw 1 ;non-O means send a trouble report 
6514 totmp1: .blilkw 1 :rP1 temp over tsleep 


7**4** nicestop and reload variablest*t*! 


6516 nsftof: .blkw 1 ;OBAD => fast T.O should do stop 
6518 nspc: -blkw 1 >Saved PC of caller , 
651A nsrutd: .blkw 1 :nonzero to send infinite routing 
651C nsrtf: »-blkw 1 :stop flag: 

0003 p.halt=3 ypanic halt 

0002 p.reload=2 ypanic reload 

0001 p.restart=1 ;panic restart 

FFFF n.halt=-1 snice halt 

FFFE n.reload=-2 snice reload 

FFFD n-restart=-3 ;nice restart . 


651E nstlin: .blkw 1 ;if nz, line on which to ask for reload 
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7*** Tine logic vars 
6520 tikent: .blkw 1 ;count of slowticks 
; *** jdle counter 
6522 idjes: .blikw 1 


7*** config variables 


6524 dynxt: -blkw 1 ;next free location in dynamic area | 
6526 stack con,< D20> 
6S4E 
654E 
654E confsp: .blkw 1 ;save stack pointer for config. 
locdef conlok,<;configuration lock - page 29> 

0001 .lif nz MISw ;For M/I bus machines 

6552 “  ckill: .blkw 1 ;flag - CONFIO doesn’t want O mem buffers. 


;*** reliability vars 
6554 concer: .blkw 1 ;error in config checksum 


i*** vars and bufs maps *** 


0010 Imapct= D1iG 
6556 vmap: -bIikb Imapct ;copies of mapvar,v2,b1-b6.- (see mapct) 
0010 vmap1=.-vmap 


;*** core fake host *** 


6566 pchelp: .blkw 1 ;imp to route empty setups to 

6568 sfheq: -bIlkw 1 ;start of queue initialized in init 
656A efhcq: -bikw 1 ;end of queue 

656C rupqsz: .blkw 1 ;size of entire routing queue 
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82CO 
82CO 


82C1 
82C2 


85E0 


85E0O 
85EO 


86DE 


86EO 


8GEO 


86E1 


8G6E2 


87DE 
87DE 


OOF F 


cooo 
8000 
cooo 
0000 


O3FE 


86DE 


0002 
0001 


0001 


3FFF 
SFFF 


nnia 
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PAGE 22 IMP Variables 


; imp system tables 


:SPF Routing Tables (used by SPF routines only) 


page V2 


;tables by line 


table Itb 
ltbdst: .blkb 1 
dlinf = HFF 


ltbnay: .bIikb 1 

-blkw nline-1 
endtable ltb 
table Iflag 


1flg = HCOOO 


lflgf = H8000 ;isign 
lflgb = HCOOO +7Sign 
lflgu = 0 


;used = H3FFF 
endtable lflag 


;tables by IMP 


table ntb,words 
-bIlkw nimp 
;used = HCOOO 
;unused = H3COO 
ntbidx = H3FE 
;unused = 1 
-blkw 1 
endtable ntb 
ntbendi = .-2 


table Ist,words 


.bIkb 1 
;used = HCO 
;uNused = 
Istol = 2 


-blkb 1 
Istist = 1 
-bIlkw nimp-1 
endtable Ist 


table pdist.words 


.bikw nimp 
;used = HCOOO 
pdst = H3FFF 
pdinf = H3FFF 


endtable pdist 


tf nt Nlina-<IIinimn> 


;line topology info 

;distance across this line 
:infinite distance (dead lines) 
;neighbor IMP number*2 


;line use flaqs 

soverlay NTB.LST,PDIST }} 
;just take left 2 bits 
:forward line 

;backwara line 

sunused line 

:bits for following tables 


; table of INDEX values 
: indexed by IMP*2 
;LFLG 


;offset for this node’s lines 
;end of last IMP’s lines 
;ptr to last word in table 


;table of list structure stuff 
; indexed by [MP*2 

;various flags: 

;LFLG 


;on-list flag ONLIST 
;On-subtree flag ONSUBT 
:list pointer by IMP*2 
;use odd bytes only 


;path distance to each IMP 
; indexed by IMPt2 

;LFLG 

;path distance to this IMP 
;Uunreachable IMP value 


429 


.endc 


;;endtable Iflag ;it could reach here 
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Page V2 
;just some space for v2 vars 
defpage v2pat, org ., limit trnbdlk 
:assign space for transaction blocks 
8910 .=<,.+ HE>& HFFFO ;hosts read into trnblks 
0064 trnnum= D100 
0640 trntot=trnl*trnonum . 
8910 trnblk: .blkb trntot 


; input padding scratch area 


8F50 .=<.+ HE>& HFFFO 
8F50 hipad: -bIlkw himaxp :garbage input from hosts 
Page Vars 
;Define a page for assigning new variables. 
defpage Varpat, org ., limit rmblks 
656E -bIlkw H20 ;Vvariables patch area 


;message blocks 


0038 .  Pmnum= D56 
0038 tmnum= D56 
65BO .=<.+ HE>& HFFFO 
rmblks: 
locdef rmlock,<;(and every 020) rcv mes block locks - page 31> 
65B2 rmimp: .blkw 1! ;source IMP#, <O -> free block 
65B4 rmhost: .blkw 1 ;remote,,local hosts 
65B6 rmct]: .blkw 1 ;handling, fuse, ,tmbIk 
65B8 rmmess: .blkw 1 ;messno,,luse,age 
6SBA rstate: .blkw 1 ;eight two bit message states 
65BC rmtype: .blkw 1 ;eight corresponding two bit types. 
65BE -b1kb 1 ;unused 
65BF rmihn: .blkb 1 ;offset of host in h2pblk 
0010 rmlen=.-rmblks 
65CO -b1kb rmlen*<rmnum- 1> 
tmblks: : 
locdef tmlock,<:(and every 020) xmit mes block locks - page 31> 
6932 tmimp: .blkw 1 :;dest IMP#, <O -> free block 
6934 tmhost: .blkw 1 ;remote host,,local host 
6936 tmctl: -blkw 1 ;handling,foreign use, ,rmblk 
6938 tmmess: .blkw 1 :messno(subtype if dead),,local use,age 
693A tstate: .blkw 1 ;rset,init,tmall,,message bits 
693C tmdeds: .blkw 1 ;saved dead host status 
693E tmstp: .blkb 1 ;tmstop,tmalt 
693F tmihn: .bikb 1 ;offset of host in h2pbik : 
0010 tmlen=.-tmbliks 


6940 -b1lkb tmlent<tmnum- 1> 
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IMP.VARS;39 PAGE 24 IMP Variables 
7***bits in rmmess, tmmess 
0100 messO= Hi0O :low bit of messno 
FFOO messno=messO* HFF ;message no: last sent(t) or highest to rec(r) 
0010 luseO= H10 ; local use bit 
OOFO luse= HF*luseO ;local use no. 
0001 ageO=1 
OOOF age= HFtaged ;timeout bits 
;***bits in tstate 
8000 tmrset= 100000 ;reset in progress or acquisition error(if init) 
4000 tminit=40000 ;just acquired, waiting got 
0400 tmal10= H400 slow bit of allocate count 
3C00 tmall= HF*tmallo ;allocate count 
0300 msto= H300 ; incomplete timeout clock bits 
0100 mstoO=msto&-insto ; incomplete timeout, bit O 
;***bits in tmstp 
0080 tmstop= H80 ;got destination dead 
OO3F tmalt= H3F ;set by tallyg, times alloc, then gives back 
0001 tmaltO=-tmalt&tmalt 
.comnt | 


bits in rstate,rmtype 
rstate, rmtype each have 8 2-bit fields, with the following values 
rstate: O=idle 1=request 2=message S=reply 
rtype: Orfnm sent illegal mes going send rfnm 

1 r/fal sent req8 recd givb recd send r/al 

2 dead sent send alli dead recd send dead 

3 incr sent send al1l8 incr recd = send incr 


0018 nrblk= D24 
6CBO messtk: .blkb O 
locdef ,<:reas blk lock (and every H10) - page 32> 
6E30 .=,72+<Irbilk*nrblk> 


emsstk: 
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6E30 


6E48 


6EB2 


GECA 


6F34 


GF4C 


6FB6 


6FCE 
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PAGE 25 IMP Variables 
ttyiob: ;this block used by TTY 
iob13: .b1kb lockfd-foo 


locdef ,<;Fake O DOZE lock - page 33> 
locdef ,<;Fake O WAIT lock - page 33> 


ddtiob: 
jiobl4: 


.b1kb ioblentfoo-lockfw 


:this block for DDT fake host 
-b1kb lockfd-foo 


locdef ,<;Fake 1 DOZE lock - page 33> 
locdef ,<;Fake 1 WAIT lock - page 33> 


coriob: 
job15S: 


-b1lkb jioblentfoo-lockfw 


;this block used by core transfer 
-blkb lockfd-foo 


locdef ,<;Fake 2 DOZE lock - page 33> 
locdef ,<;Fake 2 WAIT lock - page 33> 


staiob: 
iobl16: 


-bIlkb ioblen+foo-lockfw 


7stats IO block 
.b1lkb lockfd-foo 


locdef ,<;Fake 3 DOZE lock - page 33> 
locdef ,<;Fake 3 WAIT lock - page 33> 


; statd 
; starto 
: fakesi 


-b1lkb ioblentfoo-lockfw 


starti endi stati 
endo stato hbpid/bhpid 
fakeso lockfd lockfw 
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7O3A 


7OSA 


TOTA 


TOSA 
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;back host parameter blocks 


bbkO: 
locdef 


bbk1: 
locdef 


bbk2: 
locdef 


bbk3: 
locdef 


.<;back host O (back5) 
-b1lkb baklen-2 


.<;back host 1 (back7) 
-b1lkb baklen-2 


,<;back host 2 (back9) 
.bIikb baklen-2 


.<;back host 3 (backé6) 
-blkb baklen-2 


lock 


lock 


lock 


lock 


25-Jun-87 10:57:29 PAGE 34 
IMP Variables 


page 34> 


page 34> 


page 34> 


page 34> 
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70CO 


70C2 
T11E 


7130 


7132 
718E 


71A0 


71A2 
T1FE 


7210 


7212 
726E 


7280 


OOOE 
OO1E 


8000 


PAGE 27 IMP Variables 
:fake host parameter blocks 
.=<.+ HE>& HFFFO ;16-byte boundary 


bhiO: 

locdef ,<;:hi host lock fake O - page 35> 
-blkb lockih-lockhi-2 

locdef ,<;ih software lock fake O - page 35> 
-blkb ihloc-lockih-2 

locdef ,<;ih hardware lock fake O - page 35> 

-=bhiOtholen 


bhil: 

locdef ,<;hi host lock fake 1 - page 35> 
-bIkb lockih-lockhi-2 

locdef ,<;ih software lock fake 1 - page 35> 
-bIkb ihloc-lockih-2 

locdef ,<;ih hardware lock fake 1 - page 35> 

.=bhii+tholen 


bhi2: 

locdef ,<:hi host lock fake 2 - page 35> 
-bIkb lockih-lockhi-2 

locdef ,<;ih software lock fake 2 - page 35> 
»-b1kb ihloc-lockih-2 

locdef ,<;ih hardware lock fake 2 - page 35> 

.=bhi2+holen 


fakeh3: 

bhi3: 

locdef ,<;hi host lock fake 3 - page 35> 
-blkb lockih-lockhi-2 

locdef ,<;ih software lock fake 3 - page 35> 
-blkb ihloc-lockih-2 ‘ 

locdef ,<;ih hardware lock fake 3 - page 35> 

.=bhi3+holen 


;dynamic area starts here 
nmdb1k=<m2-.>/modlen ymax modems per IMP 
nhob1k=<m2-.>/holen max hosts per IMP 
;Macro to patch dynamic allocator 
«macro $finimp 
$dopatch dyinit, fakcode 
<.%vars+ Hf>& HFFFO+ H20 :give 250 for pkgs 


.endm 


dyblke=l%vars seats up rest of paqe 
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IMP .VARS;3 PAGE 28 IMP Variables 


;IMP PID assignments 
;BASE and MBLKS defined in OPSYS.PLR 


emty,rstgo,bltcal, jdsply,dozew,dozew,dozew,dozew 
btc,jjddt,jjtty, ihtc,waitw,waitw,waitw,waitw 
tbfriy, ttochk,back,back,back,back,back,con 

4*hi (fakes), 4*ih (fakes) 

tsk,toss, rutpi, Sthi (VDH/TIP) 

S*hi (VDH/TIP), 3*ih (VDH/TIP) 

7*ih (VDH/TIP), bad 


;70-F2 - assorted hardware devices 
;F4-F6 - qto (1.6 ms clock) 


- nopids (all real PIDs are empty) 
- unused 


at i 
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IMP.VARS;9 PAGE 29 IMP Variables 

page V2 ;buffer variables on V2 page 
8F70 .=<.+ HE>& HFFFO ;must be valid boundary for buffers 
0350 mnbuf 2=<<m3-.>/5>& HFFFO :allocate 5 equal-size tables 
7 On good buffer boundaries 
8F70 point: .bIkb mnbuf2 
92CO chain: .blkb mnbuf2 
scontents of chan vary depending on where buffer is’ used: 
; if i2m, output channel number (QO-maxchn, by twos) 
; if m2i, O (used as a flag to task, see hi) 
: if ih, time message was queued (ist pkt only) 
; if hi, input hi block address (for task) 
: if reas blk, packet number (see oldmes) 
9610 chan: -bIkb mnbuf2 
scontents of where indicate buffer usage(s) and source cntr 
: transitions are done by eorm with nf locked 
; zero in where indicates the buffer is free 
8000 whm2i= H8000 :filling i 
4000 whf2h= H4000 7 FhoqbFf ,fheq, fhesbf ,sblk : 
2000 whhi= H2000 ;hisp, trpack,bsend 
1000 whtph= H1000 :tp2h (PTIP) 
0800 whv2h= HO800 ;VDH input 
0400 whh2v= HO400 7;VDH output 
0200 whhtp= HO200 sh2tp (PTIP) 
0100 whi2m= HO100 ;sentq,sending,reaq,priq 
0080 whrut= HOO80 yrutq,rutbuf (could use whm2i) 
0040 whih= HOO40 :Cihwq) hq,hpq 
OO3E whetr= HOOSE ;source counter 
0001 whtsk= HOOO1 ;tskbuf,rq,tq,reass 
9960 where: .bIkb mnbuf2 
SCBO 


AQOO 


flushd: .blkb mnbuf2 
F, send of buffer tables 
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- INSERT "HACCON" 
. INSRT HACCON 
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HACCON.PLR; 1 


0001 


.comnt | 


Note: 


FCOO 


483E 
4840 


4842 
4842 
4844 


VHA 


0200 


0001 
0004 


0000 
0001 
O1FE 


PAGE 1 Configuration and Host Access 
-stitle Configuration and Host Access 


-if mz VHA 


lives on the DDT page. 


PAGE VHACode 


7;VHA table for PSE 
;Assemble a default identity mapping 


vnaser: 1 :first table (it’s pre-loaded) 
vhalen: D4 7full VHA map 
table vhatab :;forward translation table 
°O ;Never a VHA O 
1 :Put NOC in initially 
-rept D512-2 :for all other VHAs 
.xlist ;why look 
fe) ;make an empty table 
list ;okay. now look 
.endr ‘ 


endtable vhatab 


.endc ;VHA 
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FCOO 
40B8 
40BA 
40BC 
40BE 


40CO 
40C2 
40C4 


40C6 


40C8 
40CA 
40cc 
40CE 


40D0 
40D2 
40D4 
40D6 
4008 
40DA 
40DC 
40DE 


40EO 
40E2 
40E4 


40E6 
40E7 


40E8 
40E9 
40EA 
40EB 
40EC 
40ED 
40EE 
40EF 


40FO 


0001 


8FF6 


PAGE 2 Configuration and Host Access 
;hacmem and haccom words 


Page Warm 


hacmem: 4,4,4 ;one real default, 2 specials 
.lif nz PSE - 

yf ;PLATFORM NOC, IMP 1, HOST O (3 Nov 82) 
lif 2 PSE ;but ARPANet has raw packets 

| :;CCA Host 1: Speech Host 

0177774, 0100000,2, 0177777 ;fake hosts O-3 


haccom: 0,0,0,0 ;one real default. 3 specials 


0,0,0,0 ;four fakes 


hacspe: -1,;-1.-1 :indices of special hosts 


;no default specials in Platfrom 


- lif nz PSE 
.byte ncc_-G,ncec&desti ;NU gets raw pkts, pkt core 
sltt =z PSE ;ARPANet has one 
-byte 1*words,CCA ;CCA Host 1 is special 
»-byte H100-<4twords>, HFF ;TTY Fake 
-byte H100-<3*words>, HFF ;0DT Fake 
.byte H100-<2*words>, HFF ;Pkt Core Fake 
-byte H100~-<1*words>, HFF :Statistics Fake 


lhaccs=.-hacspe ;length of hacc search 
;special haccoms: 2 for system a,e; 
: 2 for 30,40 tty fake (0) 


-if z PSE 

concks: H8DDA ;checksum on all of the above from hacmem 
Pe Si 7:nz PSE 

concks: H8FFG6 

.endc 


40F2 


conlen=.-hacmem ;length to checksum 


clLat. Ut 


.error host access tables too long 


hacend: 


D72~-<conlen/2> 


-blkw O 
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;Dispatch tables for host functions 

;see HOSTYP, HOSREAL, HOSFAKE, etc. 

;these table are kept in LOCAL but are called by routines 
;On common. The proper useage should be to call routines on 
;the same page as the caller or else local. 


page LCode 
shost input subroutines is 
12BE table hitable 
12BE OEDS6 xsioin ;real host gets real input 
12CO 15D4 fhsioin ;fake IOBLOC input 
12C2 1504 fhsioin ;VOH IOBLOC input 
12C4 15D4 fhsioin ;TIP IOBLOC input 
12C6 O7D6 rsucceed ;Spare 
12C8 O7D6 rsucceed ;spare 


endtable hitable 


;host output subroutines 


12CA table hotable 

12CA SDAG hsiout ;real host output - checks 
12CC SDBE fsiout :fake host output in IOBLOC 
12CE SDBE fsiout ;VDH host output in IOBLOC 
12D0 SDBE fsiout ;TIP host output in IOBLOC 
12D2 O7D6 rsucceed ;spare 

12D4 O7D6 rsucceed ;spare 


endtable hotable 


‘ab ——~ — 
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;line logic control words 


FCOO 0400 page PkqgCode 


0001 .if z PSE ;all these for ARPANET 
sinitial line speed set,,routing interval (med. ticks-1) 
table lineprot 


-byte 4.4 ;default all lines to 50 kbit 
.byte 4,4 : and 1 slow tick to route 
-byte 4,4 
-byte 2, D9 7:SDAC ;SDAC line 4 to Norway 
-byte 0. D24 ::SDAC ;SDAC line 5 to London 
-byte 4.4 
.byte 4,4 
.byte 4,4 
endtable lineprot 
iff $3zZ PSE ;use these for PSE 
:initial line speed set,.,routing interval (med. ticks-1) 
40F2 table lineprot ‘ 
40F2 04 .byte kb64,4 ;default all lines to 5O kbit 
40F3 04 
40F4 04 . byte kb64,4 : and 1 slow tick to route 
40F5 04 
40F6 04 .byte kb64,4 
40F7 04 
40F8 04 .byte kbG64,4 710 Kbit, 2 slow ticks to route 
40F9 04 
40FA 04 .byte kb64,4 
40FB 04 
40FC 04 .byte kb64,4 
40FD 04 
40FE 04 -byte kbG4,4 
40FF 04 
4100 04 .byte kbG64,4 
4101 04 


endtable lineprot 


.endc ;;z PSE 
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4102 


4102 
4104 
4106 
4108 


410A 
410C 
410E 
4110 


4112 
4112 
4114 
4116 
4118 
411A 
411Cc 
411E 
4120 


4122 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
412A 
412B 
412C 
412D 
412E 
412F 
4130 
4131 


4132 
4132 
4133 


0001 


05 
05 
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;maximum channels by use on lines, 


table channel 
-if z PSE 
D8*words 
D8*words 
D8*words 
D8*words 
obtt 
Di6*words 
D1i6*words 
Di6*words 
DiG*words 
.endc 
NMDLim*words 
NMDLim'*words 
NMDLim*words 
NMDLim'words 
endtable channel 


10:57:29 


indexed by 


PAGE 43 


line number. 


78 chan for lines 1-4 


7PSE 
316 chan 


is all 


for 


16 channels. 


lines 1-4 


:High 4 lines are satellites 
+; for both networks. 


;Init retransmit time based on line number. 
retransmit time 


table irrtime 
rretime 
rrtime 
rrtime 
rrtime 
Di6'rrtime 
Di6*rrtime 
Di6*rrtime 
DiGtrrtime 

endtable irrtime 


; initial Nup counter 
table protecnt 


-byte D6O, 
-byte D6O, 
.byte DGO, 
-byte DG6O, 
-byte D6O, 
.byte D6O, 
-byte DGO, 
-byte DGO, 


endtable protcnt 


rinitial 
table knvalu 
-byte D5, D 


-if nz PSE 


* 


D4 


5 


:initial 
znominal 
;nominal 
;nominal 
;nominal 
;special 
;special 
7special 
:special 


medium ticks per logical 


4 ;4.8 Kbit: 60 up, 
>; 10 kbit: GO up, 
; 50 kbit: 6O up, 
: 50 kbit: 60 Up, 
; 50 kbit: 6O Up, 
; 50 kbit: 60 Up, 
; 50 kbit: 60 up, 
; 50 kbit: 6O up, 


74.8 kbit: 


100 
100 
100 
100 
A: 


DAA 


1 
> IF 
1 


5 
2 


k,,M values for k-out-of-n line-down 


5 out of § 


slow 
slow 
slow 
slow 
slow 
slow 


slow 


ms retransmit time 
ms retransmit time 
ms retransmit time 
ms retransmit time 
sec retransmit time 
sec retransmit time 
sec retransmit time 
sec retransmit time 


tick 


slow ticks 


ticks 


tick 


tick 


tick 


tick 


tick 


tick 
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4134 05 -byte DS, DS 3 10 kbits: S ovt of 5S 

4135 [o}s) . 
4136 05 .byte 05, D5 > 50(or 128) kbit: 5 out of 5 
4137 os 


otff wenz PSE 
.byte D4, D20 ; 10 kbit: 4 out of 20 
-byte D4, D20 ; 50 kbit: 4 out of 20 
.ende ;;nz PSE 


4138 os -byte DS, D5 3250 kbit: 5S out of 5 

4139 [0}s) 

413A o5 .byte DS, DS 3250 kbit: 5 out of 5 

413B 05 

413C 05 ».byte OS. DS 7250 kbit: 5 out of 5 

413D os 

413E os -byte DS, D5 7250 kbit: 5 out of 5 

413F o5 e 
4140 os -byte DS, DS 7250 kbit: 5 out of 5S 

4141 [o}s) 


endtable knvalu 
page |Code 


table propd! ;propagation delay 800us units 
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12D6 
12D6 
12D8 
12DA 
12DC 
12DE 
12EO 
12E2 
12E4 


FCOO 


4142 
4142 
4144 
4146 
4148 
414A 
414C 
414E 
4150 


4152 
4152 
4154 
4156 
4158 
415A 
415C 
415E 
4160 


0001 
0001 
0001 
0001 
014C 
014C 
014C 
014C 


0400 


0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 


OOFE 
OOFE 
OOFE 
OOFE 
OOFE 
OOFE 
OOFE 
OOFE 


PAGE 5.1 


-word 
. word 
.word 
. word 
.word 
. word 
-word 
. word 
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ee a 


D332 
D332 
D332 
D332 


endtable propdl 
page Rutcode 


table bias 
.word 
.word 
. word 
.word 
. word 
.word 
.word 
.word 

endtable bias 


table delmax 
- word 
.word 
.word 
-word 
. word 
. word 
.word 
. word 


dlinf-1 
dlinf-1 
dlinf-1 
dlinf-14 
dlinf-1 
dlinf-1 
dlinf-1 
dlinf-1 


endtable delmax 


;default is 1 
;should be 4 for sdac-cca line 


;Routing bias for each line; 6.4 ms units 


;Maximum allowed delay by line 
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12E6 0008 
12E8 0030 


0001 
12EA FFFF 


PAGE 6 Configuration and Host Access 
page HLCode 


;some host parameters 


pkts8: D8 ;packets in a multi 
Ingall: D48 :extra allocate timer setting (1.2288 sec) 
Ingimp: 


-if nz PSE ;all IMPs in PSE get long allocates 
-4 . 
s49F 22nz, PSE 
sdac ;which IMP gets to use it 
-endce ;;nz PSE 
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FCOO 
40B8 
40BA 
40BC 
40BE 


40CO 
40C2 
40c4 
40c5 
40C6 
40C7 
40C8 
40CA 


40CC 
40CE 
40D0 
40D2 


40D4 
40D6 


40D8 
40D9 
40DA 
40DB 
40pCc 
40DD 
40DE 
40DF 
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; IMP configuration status. 


;define 


vdhbit 
tipbit 
expbit 
cmsbit 
trabit 
ttybit 
ddtbit 
sfsbit 
eesbit 
strbit 


pakior = 
REF! AZ 
pak 


Page Fakcode 

package bits for pakior 

= 1 ; VDH 

= 2 sTIP 

= 4 ;experimental packaqe 

= H8 ;cumulative statistics 

= H10 ; trace 

= H20 SREY: 

= H40 >full DOT 4 

= H80 ;store and forward statistics 
= H100 ;end-to-end statistics 

= H200 ;strip time measurements 

10) sinitially. no packages 

VDHSw :if the VDH is being assembled in 
ior = pakior+vdhbit ;report the VDH 


;Some patchable configuration constants 


tipver: 
sysver: 
sshost: 
ssimp: 

necimp: 
nechst: 
necink: 
cpfilgs: 


qtoadr: 
ttoadr: 
intpti: 
intpit: 


intpsh: 
dyinit: 


TEMREF: 


ie) ;tip version # 
hsmver : imp system version 
-byte ncc_-6 ;send empty setup sends to NU 
-byte nec&desti 
-byte ncc&desti :NCC IMP number 
.byte ncc_-6 ;NCC host number 
< O360_ D8>+rawpkt ;NU link, raw pkts 
pakior ;package flags (VDH. TIP etc.:) 
do1.6 ;dispatch for highest priority 1.6 ms clock 
loop3 :dispatch for a routine to call every 25 ms 
10) ;nominal setting for counter ntipti 
° ; ditto for ntipit 
numhst ;2*" server hosts in use (PTIP only) 
10] ;defined and set up by finimp. 
BYTE D324 ;E-BUS, SENSOR 1 
BYTE D3a"4 ;E-BUS, SENSOR 2 
BYTE D32*4 ;E-BUS, SENSOR 3 
BYTE D32*4 ;E-BUS, SENSOR 4 
BYTE D32*4 :F-BUS, SENSOR 1 
BYTE 032*4 ;F-BUS, SENSOR 2 
BYTE D32*4 ;F-BUS, SENSOR 3 . 
BYTE D32*4 ;F-BUS, SENSOR 4 


;table of legal overriders 


FCOO 0200 
4c42 

0001 
4C42 00 
4c43 jefe) 
4C44 oo 
4c45 0O 


Page DDTCode 
table ovrtab 
-lif z PSE 
-byte HFC, bbnG3 
-byte n1lOxh,n10xi 
.byte 0,0 


endtable ovrtab 


;extra overrider in ARPANet 
;backroom prototype 516 
;NCC TENEX system 


;us before IMP comes up 
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12EC 
12ED 


12EE 


12FO 
12FO 
12F2 
12F4 
12F6 
12F8 
12FA 


12FC 
12FC 
12FE 
1300 
1302 
1304 
1306 


FCOO 


5650 
5650 
5652 
5654 
5656 
5658 


565A 
565C 
565E 
5660 
5662 
5664 


5666 


co 
co 


O7D6 


0708 
0O7D6 
07D8 
0O7D8 
07D8 
0O7D8 


O7D6 
0706 
O7D6 
0706 
0O7D6 
O7D6 


0000 


4262 
205A 
1D3A 
2B46 
18DC 
565A 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
FFFF 
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PAGE 47 


;VDH package linkage and control 


Page LCode 


-lif ndf c.vd 
c.vd= HCO 

® 

lif ndf o.vd 
o.vd= HCO 


vd.clip: 
vd.off: 


-byte c.vd 
-byte o.vd 


Page Lcode 
;Dispatch Tables for CONFIG 


;ivdhlinkages 


icvdh: rsucceed 
table chostest 
rfail ::hosreal 
rsucceed ;;hosfake 
rfail ;i:hosvdh 
rfail ;:hostip 
rfail 
rfail 


endtable chostest 


table chosini 
rsucceed 
rsucceed 
rsucceed 
rsucceed 
rsucceed 
rsucceed 

endtable chosini 


Page RelCode 


7VDH clip 
;VDH modems start here. 


;VDH offset 


;modems above clip are VDH 
;subtract from modem # to get host 


;routines to call for V2PBLK 
;no real hosts in V2PBLK 

;no checking for fakes 
;initially no VDHs 
zinitially no TIPs 


spare 
spare 


yroutines if checks (CHOSTEST) fail 
;none for reals 

;none for fakes 

;none for VDHs yet 

;none for TIPs yet 


;spare 
;Spare 


;tables to drive BASE/MBLKS checking; parallel to each other 


table ccbase 
tohot 


ih 
ccbspare = ccbaset+, 
baat tenth [Ream ihe (Tita LP it | 


endtable ccbase 


table ccheck 


;BASE entry to match 
;RTC handler 


;modem 


input 


ymodem output 
;host input 
;host output 


76 spares (2 VDH, 4 other) 


sroutine to call # 


‘atch 


5666 
5668 
566A 
566C 
566E 


5670 
5672 
5674 
5676 
5678 
S67A 


rtcchk :RTC dispatch checker 
modchk , modchk ;modem dispatch checker 
hoschk , hoschik ;host dispatch checker 


cchspare = ccheck+. ; 
-41.S41 tia te=4 7G spares (2 VDH, 4 other) 


endtable ccheck 
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-INSERT "IMPSUB" 
.INSRT IMPSUB 


